27.05.2010 - 18:49
Choix de Couleurs
Actuellement dans un code pour avoir la couleur voulue, j'ai :
Private Sub ComboBox2_Change()
With ComboBox2
Couleur = .Text
Select Case .Text
Case "Blanc": .BackColor = vbWhite
Case "Bleu": .BackColor = vbBlue
Case "Rouge": .BackColor = vbRed
Case "Vert": .BackColor = vbGreen
Case "Jaune": .BackColor = vbYellow
Case "Magenta": .BackColor = vbMagenta
Case "Cyan": .BackColor = vbCyan
Case "Noir": .BackColor = vbBlack
End Select
End With
End Sub
Que faut-il changer pour avoir d'autres couleurs ?
Exemple : couleurs 17, 18,44 etc.....
Merci de votre aide
Cordialement
Guy
27.05.2010 - 19:41
bonjour Guy,
ComboBox1.BackColor = ThisWorkbook.Colors(17)
isabelle
Le 2010-05-27 12:49, Guy85 a écrit :
Private Sub ComboBox2_Change()
With ComboBox2
Couleur = .Text
Select Case .Text
Case "Blanc": .BackColor = vbWhite
Case "Bleu": .BackColor = vbBlue
Case "Rouge": .BackColor = vbRed
Case "Vert": .BackColor = vbGreen
Case "Jaune": .BackColor = vbYellow
Case "Magenta": .BackColor = vbMagenta
Case "Cyan": .BackColor = vbCyan
Case "Noir": .BackColor = vbBlack
End Select
End With
End Sub
ComboBox1.BackColor = ThisWorkbook.Colors(17)
isabelle
Le 2010-05-27 12:49, Guy85 a écrit :
Private Sub ComboBox2_Change()
With ComboBox2
Couleur = .Text
Select Case .Text
Case "Blanc": .BackColor = vbWhite
Case "Bleu": .BackColor = vbBlue
Case "Rouge": .BackColor = vbRed
Case "Vert": .BackColor = vbGreen
Case "Jaune": .BackColor = vbYellow
Case "Magenta": .BackColor = vbMagenta
Case "Cyan": .BackColor = vbCyan
Case "Noir": .BackColor = vbBlack
End Select
End With
End Sub
27.05.2010 - 20:21
Bonsoir,
Pour compléter la réponse d'Isabelle,
tu peux exécuter cette macro pour avoir la correspondance des couleurs et des
index :
Sub test()
[A1].Select
For i = 0 To 56
ActiveCell = i
ActiveCell.Offset(0, 1).Interior.ColorIndex = i
ActiveCell.Offset(1, 0).Select
Next
End Sub
Le 27/05/2010 18:49, Guy85 a écrit :
Bonjour,
Actuellement dans un code pour avoir la couleur voulue, j'ai :
Private Sub ComboBox2_Change()
With ComboBox2
Couleur = .Text
Select Case .Text
Case "Blanc": .BackColor = vbWhite
Case "Bleu": .BackColor = vbBlue
Case "Rouge": .BackColor = vbRed
Case "Vert": .BackColor = vbGreen
Case "Jaune": .BackColor = vbYellow
Case "Magenta": .BackColor = vbMagenta
Case "Cyan": .BackColor = vbCyan
Case "Noir": .BackColor = vbBlack
End Select
End With
End Sub
Que faut-il changer pour avoir d'autres couleurs ?
Exemple : couleurs 17, 18,44 etc.....
Merci de votre aide
Cordialement
Guy
--
----
ThierryP
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet
(Georges Courteline)
Pour compléter la réponse d'Isabelle,
tu peux exécuter cette macro pour avoir la correspondance des couleurs et des
index :
Sub test()
[A1].Select
For i = 0 To 56
ActiveCell = i
ActiveCell.Offset(0, 1).Interior.ColorIndex = i
ActiveCell.Offset(1, 0).Select
Next
End Sub
Le 27/05/2010 18:49, Guy85 a écrit :
Bonjour,
Actuellement dans un code pour avoir la couleur voulue, j'ai :
Private Sub ComboBox2_Change()
With ComboBox2
Couleur = .Text
Select Case .Text
Case "Blanc": .BackColor = vbWhite
Case "Bleu": .BackColor = vbBlue
Case "Rouge": .BackColor = vbRed
Case "Vert": .BackColor = vbGreen
Case "Jaune": .BackColor = vbYellow
Case "Magenta": .BackColor = vbMagenta
Case "Cyan": .BackColor = vbCyan
Case "Noir": .BackColor = vbBlack
End Select
End With
End Sub
Que faut-il changer pour avoir d'autres couleurs ?
Exemple : couleurs 17, 18,44 etc.....
Merci de votre aide
Cordialement
Guy
--
----
ThierryP
Passer pour un idiot aux yeux d'un imbécile est une volupté de fin gourmet
(Georges Courteline)
27.05.2010 - 20:32
bonjour Isabelle,
J'ai donc mis dans le code "Case violet".
Je vois bien la couleur.
Private Sub ComboBox2_Change()
With ComboBox2
Couleur = .Text
Select Case .Text
Case "Blanc": .BackColor = vbWhite
Case "Bleu": .BackColor = vbBlue
Case "Rouge": .BackColor = vbRed
Case "Vert": .BackColor = vbGreen
Case "Jaune": .BackColor = vbYellow
Case "Magenta": .BackColor = vbMagenta
Case "Cyan": .BackColor = vbCyan
Case "Noir": .BackColor = vbBlack
Case "Violet": .BackColor = ThisWorkbook.Colors(17) 'Violet
End Select
End With
End Sub
Pourquoi dans le code suisvant, l'itinéraire est vert.
Ce qui me fais qu'avec le même N°, j'ai 2 couleur différentes:
Sub choix_itineraire()
Dim Ctrl As Control
Dim y, z, i, c
'reset
Select Case UserForm.ComboBox2.Text
Case "Blanc": c = 9
Case "Bleu": c = 12
Case "Rouge": c = 10
Case "Vert": c = 11
Case "Jaune": c = 13
Case "Magenta": c = 14
Case "Cyan": c = 15
Case "Noir": c = 8
Case "Violet": c = 17 'Vert
End Select.
"isabelle" <i@v> a écrit dans le message de news:
%23SOdHPc$KHA.5476@TK2MSFTNGP06.phx.gbl...
bonjour Guy,
ComboBox1.BackColor = ThisWorkbook.Colors(17)
J'ai donc mis dans le code "Case violet".
Je vois bien la couleur.
Private Sub ComboBox2_Change()
With ComboBox2
Couleur = .Text
Select Case .Text
Case "Blanc": .BackColor = vbWhite
Case "Bleu": .BackColor = vbBlue
Case "Rouge": .BackColor = vbRed
Case "Vert": .BackColor = vbGreen
Case "Jaune": .BackColor = vbYellow
Case "Magenta": .BackColor = vbMagenta
Case "Cyan": .BackColor = vbCyan
Case "Noir": .BackColor = vbBlack
Case "Violet": .BackColor = ThisWorkbook.Colors(17) 'Violet
End Select
End With
End Sub
Pourquoi dans le code suisvant, l'itinéraire est vert.
Ce qui me fais qu'avec le même N°, j'ai 2 couleur différentes:
Sub choix_itineraire()
Dim Ctrl As Control
Dim y, z, i, c
'reset
Select Case UserForm.ComboBox2.Text
Case "Blanc": c = 9
Case "Bleu": c = 12
Case "Rouge": c = 10
Case "Vert": c = 11
Case "Jaune": c = 13
Case "Magenta": c = 14
Case "Cyan": c = 15
Case "Noir": c = 8
Case "Violet": c = 17 'Vert
End Select.
"isabelle" <i@v> a écrit dans le message de news:
%23SOdHPc$KHA.5476@TK2MSFTNGP06.phx.gbl...
bonjour Guy,
ComboBox1.BackColor = ThisWorkbook.Colors(17)
27.05.2010 - 20:58
que représente la variable c ?
isabelle
Le 2010-05-27 14:32, Guy85 a écrit :
bonjour Isabelle,
J'ai donc mis dans le code "Case violet".
Je vois bien la couleur.
Private Sub ComboBox2_Change()
With ComboBox2
Couleur = .Text
Select Case .Text
Case "Blanc": .BackColor = vbWhite
Case "Bleu": .BackColor = vbBlue
Case "Rouge": .BackColor = vbRed
Case "Vert": .BackColor = vbGreen
Case "Jaune": .BackColor = vbYellow
Case "Magenta": .BackColor = vbMagenta
Case "Cyan": .BackColor = vbCyan
Case "Noir": .BackColor = vbBlack
Case "Violet": .BackColor = ThisWorkbook.Colors(17) 'Violet
End Select
End With
End Sub
Pourquoi dans le code suisvant, l'itinéraire est vert.
Ce qui me fais qu'avec le même N°, j'ai 2 couleur différentes:
Sub choix_itineraire()
Dim Ctrl As Control
Dim y, z, i, c
'reset
Select Case UserForm.ComboBox2.Text
Case "Blanc": c = 9
Case "Bleu": c = 12
Case "Rouge": c = 10
Case "Vert": c = 11
Case "Jaune": c = 13
Case "Magenta": c = 14
Case "Cyan": c = 15
Case "Noir": c = 8
Case "Violet": c = 17 'Vert
End Select.
"isabelle"<i@v> a écrit dans le message de news:
%23SOdHPc$KHA.5476@TK2MSFTNGP06.phx.gbl...
bonjour Guy,
ComboBox1.BackColor = ThisWorkbook.Colors(17)
isabelle
Le 2010-05-27 14:32, Guy85 a écrit :
bonjour Isabelle,
J'ai donc mis dans le code "Case violet".
Je vois bien la couleur.
Private Sub ComboBox2_Change()
With ComboBox2
Couleur = .Text
Select Case .Text
Case "Blanc": .BackColor = vbWhite
Case "Bleu": .BackColor = vbBlue
Case "Rouge": .BackColor = vbRed
Case "Vert": .BackColor = vbGreen
Case "Jaune": .BackColor = vbYellow
Case "Magenta": .BackColor = vbMagenta
Case "Cyan": .BackColor = vbCyan
Case "Noir": .BackColor = vbBlack
Case "Violet": .BackColor = ThisWorkbook.Colors(17) 'Violet
End Select
End With
End Sub
Pourquoi dans le code suisvant, l'itinéraire est vert.
Ce qui me fais qu'avec le même N°, j'ai 2 couleur différentes:
Sub choix_itineraire()
Dim Ctrl As Control
Dim y, z, i, c
'reset
Select Case UserForm.ComboBox2.Text
Case "Blanc": c = 9
Case "Bleu": c = 12
Case "Rouge": c = 10
Case "Vert": c = 11
Case "Jaune": c = 13
Case "Magenta": c = 14
Case "Cyan": c = 15
Case "Noir": c = 8
Case "Violet": c = 17 'Vert
End Select.
"isabelle"<i@v> a écrit dans le message de news:
%23SOdHPc$KHA.5476@TK2MSFTNGP06.phx.gbl...
bonjour Guy,
ComboBox1.BackColor = ThisWorkbook.Colors(17)
27.05.2010 - 21:27
Bonsour® "isabelle" <i@v> a écrit
que représente la variable c ?
toute variable non explicitement typée est de type Variant
c'est le type le plus gourmand en mémoire...
Pourquoi dans le code suisvant, l'itinéraire est vert.
Ce qui me fais qu'avec le même N°, j'ai 2 couleur différentes:
parce que tu confonds ColorIndex et Color
ColorIndex de type integer vaut de 0 à 56 et correspond à l'une des 56
couleurs possible de la palette
palette dont chacun à la possibilité de modification
color est un entier long correspondant à l'une des 16 000 000 etc...
couleurs possible dans Office
et s'exprime par la fonction =RGB( Rouge, Vert, Bleu)
Rouge, Vert, Bleu de type integer acceptent des valeurs de 0 à 255
les objets issus de la boite outils contrôles peuvent prendre n'importe
quelle couleur parmi les 16 000 000 etc... possibles
les autres objets spécifiques de feuille de calculs sont limités aux 56
couleurs de la palette courante
Sub choix_itineraire()
Dim Ctrl As Control
Dim y, z, i, c
'reset
Select Case UserForm.ComboBox2.Text
Case "Blanc": c = 9
Case "Bleu": c = 12
Case "Rouge": c = 10
Case "Vert": c = 11
Case "Jaune": c = 13
Case "Magenta": c = 14
Case "Cyan": c = 15
Case "Noir": c = 8
Case "Violet": c = 17 'Vert
End Select.
que représente la variable c ?
toute variable non explicitement typée est de type Variant
c'est le type le plus gourmand en mémoire...
Pourquoi dans le code suisvant, l'itinéraire est vert.
Ce qui me fais qu'avec le même N°, j'ai 2 couleur différentes:
parce que tu confonds ColorIndex et Color
ColorIndex de type integer vaut de 0 à 56 et correspond à l'une des 56
couleurs possible de la palette
palette dont chacun à la possibilité de modification
color est un entier long correspondant à l'une des 16 000 000 etc...
couleurs possible dans Office
et s'exprime par la fonction =RGB( Rouge, Vert, Bleu)
Rouge, Vert, Bleu de type integer acceptent des valeurs de 0 à 255
les objets issus de la boite outils contrôles peuvent prendre n'importe
quelle couleur parmi les 16 000 000 etc... possibles
les autres objets spécifiques de feuille de calculs sont limités aux 56
couleurs de la palette courante
Sub choix_itineraire()
Dim Ctrl As Control
Dim y, z, i, c
'reset
Select Case UserForm.ComboBox2.Text
Case "Blanc": c = 9
Case "Bleu": c = 12
Case "Rouge": c = 10
Case "Vert": c = 11
Case "Jaune": c = 13
Case "Magenta": c = 14
Case "Cyan": c = 15
Case "Noir": c = 8
Case "Violet": c = 17 'Vert
End Select.
27.05.2010 - 21:30
Bonsour® "Guy85" a écrit
Pourquoi dans le code suisvant, l'itinéraire est vert.
voir le réponse donnée à Isabelle
choix_itineraire()
;o)))
je te propose d'essayer ceci :
http://cdmrail.free.fr/Setup/CDM-Rail-V2.21-06_04_10.exe
:o)))
Pourquoi dans le code suisvant, l'itinéraire est vert.
voir le réponse donnée à Isabelle
choix_itineraire()
;o)))
je te propose d'essayer ceci :
http://cdmrail.free.fr/Setup/CDM-Rail-V2.21-06_04_10.exe
:o)))
27.05.2010 - 21:48
bonjour geedee,
ok pour le variant ;-) mais dans cette macro je voulais savoir quel
utilité il fait de cette variable, il manque la fin de la macro.
isabelle
Le 2010-05-27 15:27, Modeste a écrit :
Bonsour® "isabelle" <i@v> a écrit
que représente la variable c ?
toute variable non explicitement typée est de type Variant
c'est le type le plus gourmand en mémoire...
Pourquoi dans le code suisvant, l'itinéraire est vert.
Ce qui me fais qu'avec le même N°, j'ai 2 couleur différentes:
parce que tu confonds ColorIndex et Color
ColorIndex de type integer vaut de 0 à 56 et correspond à l'une des 56
couleurs possible de la palette
palette dont chacun à la possibilité de modification
color est un entier long correspondant à l'une des 16 000 000 etc...
couleurs possible dans Office
et s'exprime par la fonction =RGB( Rouge, Vert, Bleu)
Rouge, Vert, Bleu de type integer acceptent des valeurs de 0 à 255
les objets issus de la boite outils contrôles peuvent prendre
n'importe quelle couleur parmi les 16 000 000 etc... possibles
les autres objets spécifiques de feuille de calculs sont limités aux
56 couleurs de la palette courante
Sub choix_itineraire()
Dim Ctrl As Control
Dim y, z, i, c
'reset
Select Case UserForm.ComboBox2.Text
Case "Blanc": c = 9
Case "Bleu": c = 12
Case "Rouge": c = 10
Case "Vert": c = 11
Case "Jaune": c = 13
Case "Magenta": c = 14
Case "Cyan": c = 15
Case "Noir": c = 8
Case "Violet": c = 17 'Vert
End Select.
ok pour le variant ;-) mais dans cette macro je voulais savoir quel
utilité il fait de cette variable, il manque la fin de la macro.
isabelle
Le 2010-05-27 15:27, Modeste a écrit :
Bonsour® "isabelle" <i@v> a écrit
que représente la variable c ?
toute variable non explicitement typée est de type Variant
c'est le type le plus gourmand en mémoire...
Pourquoi dans le code suisvant, l'itinéraire est vert.
Ce qui me fais qu'avec le même N°, j'ai 2 couleur différentes:
parce que tu confonds ColorIndex et Color
ColorIndex de type integer vaut de 0 à 56 et correspond à l'une des 56
couleurs possible de la palette
palette dont chacun à la possibilité de modification
color est un entier long correspondant à l'une des 16 000 000 etc...
couleurs possible dans Office
et s'exprime par la fonction =RGB( Rouge, Vert, Bleu)
Rouge, Vert, Bleu de type integer acceptent des valeurs de 0 à 255
les objets issus de la boite outils contrôles peuvent prendre
n'importe quelle couleur parmi les 16 000 000 etc... possibles
les autres objets spécifiques de feuille de calculs sont limités aux
56 couleurs de la palette courante
Sub choix_itineraire()
Dim Ctrl As Control
Dim y, z, i, c
'reset
Select Case UserForm.ComboBox2.Text
Case "Blanc": c = 9
Case "Bleu": c = 12
Case "Rouge": c = 10
Case "Vert": c = 11
Case "Jaune": c = 13
Case "Magenta": c = 14
Case "Cyan": c = 15
Case "Noir": c = 8
Case "Violet": c = 17 'Vert
End Select.
28.05.2010 - 00:01
| color est un entier long correspondant à l'une des 16 000 000 etc...
Je ne te crois pas... nomme-les avec le nom de leur couleur respective!
;-))
28.05.2010 - 00:35
Bonsour® "michdenis" a écrit
| color est un entier long correspondant à l'une des 16 000 000 etc...
Je ne te crois pas... nomme-les avec le nom de leur couleur respective!
;-))
la plus longue liste que j'ai trouvé pour RGB
http://www-swiss.ai.mit.edu/~jaffer/Color/resenecolours.txt
http://chir.ag/projects/name-that-color/
ensuite on rejoint un peu le domaine du sacré, il y a peut être des noms
qu'il ne faut pas prononcer ...
;o)))
| color est un entier long correspondant à l'une des 16 000 000 etc...
Je ne te crois pas... nomme-les avec le nom de leur couleur respective!
;-))
la plus longue liste que j'ai trouvé pour RGB
http://www-swiss.ai.mit.edu/~jaffer/Color/resenecolours.txt
http://chir.ag/projects/name-that-color/
ensuite on rejoint un peu le domaine du sacré, il y a peut être des noms
qu'il ne faut pas prononcer ...
;o)))
28.05.2010 - 01:16
On est loin du compte, mais c'est quand même un effort louable !
;-)
"Modeste" <nomail@live.fr> a écrit dans le message de groupe de discussion :
#BwrYze$KHA.1888@TK2MSFTNGP05.phx.gbl...
Bonsour® "michdenis" a écrit
| color est un entier long correspondant à l'une des 16 000 000 etc...
Je ne te crois pas... nomme-les avec le nom de leur couleur respective!
;-))
la plus longue liste que j'ai trouvé pour RGB
http://www-swiss.ai.mit.edu/~jaffer/Color/resenecolours.txt
http://chir.ag/projects/name-that-color/
ensuite on rejoint un peu le domaine du sacré, il y a peut être des noms
qu'il ne faut pas prononcer ...
;o)))
;-)
"Modeste" <nomail@live.fr> a écrit dans le message de groupe de discussion :
#BwrYze$KHA.1888@TK2MSFTNGP05.phx.gbl...
Bonsour® "michdenis" a écrit
| color est un entier long correspondant à l'une des 16 000 000 etc...
Je ne te crois pas... nomme-les avec le nom de leur couleur respective!
;-))
la plus longue liste que j'ai trouvé pour RGB
http://www-swiss.ai.mit.edu/~jaffer/Color/resenecolours.txt
http://chir.ag/projects/name-that-color/
ensuite on rejoint un peu le domaine du sacré, il y a peut être des noms
qu'il ne faut pas prononcer ...
;o)))
28.05.2010 - 07:10
Bonjour Isabelle,
que représente la variable c ?
Excuse, je n'ai pas pu te répondre hier soir.
Apparemment, il y a une différence de 7 dans "Sub choix_itinéraire" par
rapport à
"Private Sub ComboBox2_Change"(), ça focntionne comme ça.
Par contre, je ne sais pas pourquoi, je ne mis connais pas assez en VBA.
Voici le fichier :
http://www.cijoint.fr/cjlink.php?filej201005/cijqEck9xg.xls
Cordialement
Guy
que représente la variable c ?
Excuse, je n'ai pas pu te répondre hier soir.
Apparemment, il y a une différence de 7 dans "Sub choix_itinéraire" par
rapport à
"Private Sub ComboBox2_Change"(), ça focntionne comme ça.
Par contre, je ne sais pas pourquoi, je ne mis connais pas assez en VBA.
Voici le fichier :
http://www.cijoint.fr/cjlink.php?filej201005/cijqEck9xg.xls
Cordialement
Guy
28.05.2010 - 09:26
Bonsour® "Guy85" > Par contre, je ne sais pas pourquoi, je ne mis connais
pas assez en VBA.
Voici le fichier :
http://www.cijoint.fr/cjlink.php?filej201005/cijqEck9xg.xls
;o)))
dans le module Traitement supprimer toutes les procs sub
ligneXXX_quandClic()
par :
Sub ligne_quandclic()
Dim nomobjet As String
nomobjet = Application.Caller
If LCase(Left(nomobjet, 5)) = "ligne" Then
li = CDbl(Mid(nomobjet, 7, 3))
Traitement
Else
msgbox "cet objet ne correspond pas à un itinéraire"
End If
End Sub
Sur la feuille réseau sélectionner tout les objets (sinon seulement les
graphismes itinéraires)
et affecter la macro ci-dessus
pas assez en VBA.
Voici le fichier :
http://www.cijoint.fr/cjlink.php?filej201005/cijqEck9xg.xls
;o)))
dans le module Traitement supprimer toutes les procs sub
ligneXXX_quandClic()
par :
Sub ligne_quandclic()
Dim nomobjet As String
nomobjet = Application.Caller
If LCase(Left(nomobjet, 5)) = "ligne" Then
li = CDbl(Mid(nomobjet, 7, 3))
Traitement
Else
msgbox "cet objet ne correspond pas à un itinéraire"
End If
End Sub
Sur la feuille réseau sélectionner tout les objets (sinon seulement les
graphismes itinéraires)
et affecter la macro ci-dessus
28.05.2010 - 15:56
bonjour Guy,
chapeau pour ce fichier, j'ai bien aimé
pour la différence de couleur ça vient du fait que les couleurs de shape
et celle des cellules de sont pas les même, fait le test suivant sur une
nouvelle feuille,
Sub VérifierCouleur()
Dim f As Worksheet, s As Shapes, forme As Shape
Set f = ActiveSheet
Set s = f.Shapes
For i = 1 To 56
l = Range("B" & i).Left
t = Range("B" & i).Top
Set forme = s.AddShape(msoShapeLineCallout1, l + 2, t + 2, 50, 8)
forme.Fill.ForeColor.SchemeColor = i
Range("A" & i).Interior.ColorIndex = i
Next
End Sub
isabelle
Le 2010-05-28 01:10, Guy85 a écrit :
Bonjour Isabelle,
que représente la variable c ?
Excuse, je n'ai pas pu te répondre hier soir.
Apparemment, il y a une différence de 7 dans "Sub choix_itinéraire" par
rapport à
"Private Sub ComboBox2_Change"(), ça focntionne comme ça.
Par contre, je ne sais pas pourquoi, je ne mis connais pas assez en VBA.
Voici le fichier :
http://www.cijoint.fr/cjlink.php?filej201005/cijqEck9xg.xls
Cordialement
Guy
chapeau pour ce fichier, j'ai bien aimé
pour la différence de couleur ça vient du fait que les couleurs de shape
et celle des cellules de sont pas les même, fait le test suivant sur une
nouvelle feuille,
Sub VérifierCouleur()
Dim f As Worksheet, s As Shapes, forme As Shape
Set f = ActiveSheet
Set s = f.Shapes
For i = 1 To 56
l = Range("B" & i).Left
t = Range("B" & i).Top
Set forme = s.AddShape(msoShapeLineCallout1, l + 2, t + 2, 50, 8)
forme.Fill.ForeColor.SchemeColor = i
Range("A" & i).Interior.ColorIndex = i
Next
End Sub
isabelle
Le 2010-05-28 01:10, Guy85 a écrit :
Bonjour Isabelle,
que représente la variable c ?
Excuse, je n'ai pas pu te répondre hier soir.
Apparemment, il y a une différence de 7 dans "Sub choix_itinéraire" par
rapport à
"Private Sub ComboBox2_Change"(), ça focntionne comme ça.
Par contre, je ne sais pas pourquoi, je ne mis connais pas assez en VBA.
Voici le fichier :
http://www.cijoint.fr/cjlink.php?filej201005/cijqEck9xg.xls
Cordialement
Guy
28.05.2010 - 16:28
Bonjour Modeste,
Aaaaa ...b1111... oui..., c'est beaucoup moins long.
Merci de ce raccourcit.
Cordialement
Guy
"Modeste" <nomail@live.fr> a écrit dans le message de news:
956C2261-3356-4881-8507-84F52C92D77D@microsoft.com...
Bonsour® "Guy85" > Par contre, je ne sais pas pourquoi, je ne mis connais
pas assez en VBA.
Voici le fichier :
http://www.cijoint.fr/cjlink.php?filej201005/cijqEck9xg.xls
;o)))
dans le module Traitement supprimer toutes les procs sub
ligneXXX_quandClic()
par :
Sub ligne_quandclic()
Dim nomobjet As String
nomobjet = Application.Caller
If LCase(Left(nomobjet, 5)) = "ligne" Then
li = CDbl(Mid(nomobjet, 7, 3))
Traitement
Else
msgbox "cet objet ne correspond pas à un itinéraire"
End If
End Sub
Sur la feuille réseau sélectionner tout les objets (sinon seulement les
graphismes itinéraires)
et affecter la macro ci-dessus
Aaaaa ...b1111... oui..., c'est beaucoup moins long.
Merci de ce raccourcit.
Cordialement
Guy
"Modeste" <nomail@live.fr> a écrit dans le message de news:
956C2261-3356-4881-8507-84F52C92D77D@microsoft.com...
Bonsour® "Guy85" > Par contre, je ne sais pas pourquoi, je ne mis connais
pas assez en VBA.
Voici le fichier :
http://www.cijoint.fr/cjlink.php?filej201005/cijqEck9xg.xls
;o)))
dans le module Traitement supprimer toutes les procs sub
ligneXXX_quandClic()
par :
Sub ligne_quandclic()
Dim nomobjet As String
nomobjet = Application.Caller
If LCase(Left(nomobjet, 5)) = "ligne" Then
li = CDbl(Mid(nomobjet, 7, 3))
Traitement
Else
msgbox "cet objet ne correspond pas à un itinéraire"
End If
End Sub
Sur la feuille réseau sélectionner tout les objets (sinon seulement les
graphismes itinéraires)
et affecter la macro ci-dessus
Ähnliche Themen
Les couleurs
05.06.2010 - 20:59 - Posts: 5
les couleurs
04.08.2010 - 08:50 - Posts: 1
les couleurs
04.08.2010 - 08:48 - Posts: 22
Des couleurs.
05.12.2009 - 18:07 - Posts: 4
Couleurs
22.03.2010 - 14:32 - Posts: 9
couleurs
30.04.2011 - 09:00 - Posts: 4
DSK reprend des couleurs
22.08.2011 - 23:43 - Posts: 4
More
Search
