deux liste deroulante.
lors du choix de la premiere, la deuxieme pointe vers une zone de liste
HORIZONTALE.
donc
case select dd
case 2500
ligne = 6
case 2400
ligne = 5
end select
dim hh as range
for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k &
ligne].Cells
listebox1.AddItem hh
Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Range("c" & ligne & ":k" & ligne).Cells Cordialement. Daniel "luc c" a écrit dans le message de news: Sbk1i.141035$
salut
voici le défi
deux liste deroulante. lors du choix de la premiere, la deuxieme pointe vers une zone de liste HORIZONTALE.
donc
case select dd case 2500 ligne = 6 case 2400 ligne = 5 end select dim hh as range for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k & ligne].Cells listebox1.AddItem hh Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
[c & ligne:k & ligne].cells
vos suggestion svp
luc
Bonjour.
Range("c" & ligne & ":k" & ligne).Cells
Cordialement.
Daniel
"luc c" <luc.champagne01@videotron.ca> a écrit dans le message de news:
Sbk1i.141035$z82.402918@weber.videotron.net...
salut
voici le défi
deux liste deroulante.
lors du choix de la premiere, la deuxieme pointe vers une zone de liste
HORIZONTALE.
donc
case select dd
case 2500
ligne = 6
case 2400
ligne = 5
end select
dim hh as range
for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k &
ligne].Cells
listebox1.AddItem hh
Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
Bonjour. Range("c" & ligne & ":k" & ligne).Cells Cordialement. Daniel "luc c" a écrit dans le message de news: Sbk1i.141035$
salut
voici le défi
deux liste deroulante. lors du choix de la premiere, la deuxieme pointe vers une zone de liste HORIZONTALE.
donc
case select dd case 2500 ligne = 6 case 2400 ligne = 5 end select dim hh as range for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k & ligne].Cells listebox1.AddItem hh Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
[c & ligne:k & ligne].cells
vos suggestion svp
luc
Jacky
Bonjour,
'---------- For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne) UserForm1.ListBox1.AddItem hh Next '-----------
-- Salutations JJ
"luc c" a écrit dans le message de news: Sbk1i.141035$
salut
voici le défi
deux liste deroulante. lors du choix de la premiere, la deuxieme pointe vers une zone de liste HORIZONTALE.
donc
case select dd case 2500 ligne = 6 case 2400 ligne = 5 end select dim hh as range for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k & ligne].Cells listebox1.AddItem hh Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
[c & ligne:k & ligne].cells
vos suggestion svp
luc
Bonjour,
'----------
For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne)
UserForm1.ListBox1.AddItem hh
Next
'-----------
--
Salutations
JJ
"luc c" <luc.champagne01@videotron.ca> a écrit dans le message de news:
Sbk1i.141035$z82.402918@weber.videotron.net...
salut
voici le défi
deux liste deroulante.
lors du choix de la premiere, la deuxieme pointe vers une zone de liste
HORIZONTALE.
donc
case select dd
case 2500
ligne = 6
case 2400
ligne = 5
end select
dim hh as range
for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k &
ligne].Cells
listebox1.AddItem hh
Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
'---------- For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne) UserForm1.ListBox1.AddItem hh Next '-----------
-- Salutations JJ
"luc c" a écrit dans le message de news: Sbk1i.141035$
salut
voici le défi
deux liste deroulante. lors du choix de la premiere, la deuxieme pointe vers une zone de liste HORIZONTALE.
donc
case select dd case 2500 ligne = 6 case 2400 ligne = 5 end select dim hh as range for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k & ligne].Cells listebox1.AddItem hh Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
[c & ligne:k & ligne].cells
vos suggestion svp
luc
luc c
helas, le fait de remplacer les crochets par des parenthese ne fonctionne pas ?
pourquoi ?
"Jacky" a écrit dans le message de news:
Bonjour,
'---------- For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne) UserForm1.ListBox1.AddItem hh Next '-----------
-- Salutations JJ
"luc c" a écrit dans le message de news: Sbk1i.141035$
salut
voici le défi
deux liste deroulante. lors du choix de la premiere, la deuxieme pointe vers une zone de liste HORIZONTALE.
donc
case select dd case 2500 ligne = 6 case 2400 ligne = 5 end select dim hh as range for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k & ligne].Cells listebox1.AddItem hh Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
[c & ligne:k & ligne].cells
vos suggestion svp
luc
helas, le fait de remplacer les crochets par des parenthese ne fonctionne
pas ?
pourquoi ?
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
Oz157DLlHHA.4188@TK2MSFTNGP02.phx.gbl...
Bonjour,
'----------
For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne)
UserForm1.ListBox1.AddItem hh
Next
'-----------
--
Salutations
JJ
"luc c" <luc.champagne01@videotron.ca> a écrit dans le message de news:
Sbk1i.141035$z82.402918@weber.videotron.net...
salut
voici le défi
deux liste deroulante.
lors du choix de la premiere, la deuxieme pointe vers une zone de liste
HORIZONTALE.
donc
case select dd
case 2500
ligne = 6
case 2400
ligne = 5
end select
dim hh as range
for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k &
ligne].Cells
listebox1.AddItem hh
Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
helas, le fait de remplacer les crochets par des parenthese ne fonctionne pas ?
pourquoi ?
"Jacky" a écrit dans le message de news:
Bonjour,
'---------- For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne) UserForm1.ListBox1.AddItem hh Next '-----------
-- Salutations JJ
"luc c" a écrit dans le message de news: Sbk1i.141035$
salut
voici le défi
deux liste deroulante. lors du choix de la premiere, la deuxieme pointe vers une zone de liste HORIZONTALE.
donc
case select dd case 2500 ligne = 6 case 2400 ligne = 5 end select dim hh as range for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k & ligne].Cells listebox1.AddItem hh Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
[c & ligne:k & ligne].cells
vos suggestion svp
luc
Jacky
Re... Si ce code ne fonctionne pas, le problème est ailleurs... tester comme ceci '--------- For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne) MsgBox hh & " à l'adresse " & hh.Address Next '--------
-- Salutations JJ
"luc c" a écrit dans le message de news: Quu1i.173227$
helas, le fait de remplacer les crochets par des parenthese ne fonctionne pas ?
pourquoi ?
"Jacky" a écrit dans le message de news:
Bonjour,
'---------- For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne) UserForm1.ListBox1.AddItem hh Next '-----------
-- Salutations JJ
"luc c" a écrit dans le message de news: Sbk1i.141035$
salut
voici le défi
deux liste deroulante. lors du choix de la premiere, la deuxieme pointe vers une zone de liste HORIZONTALE.
donc
case select dd case 2500 ligne = 6 case 2400 ligne = 5 end select dim hh as range for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k & ligne].Cells listebox1.AddItem hh Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
[c & ligne:k & ligne].cells
vos suggestion svp
luc
Re...
Si ce code ne fonctionne pas, le problème est ailleurs...
tester comme ceci
'---------
For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne)
MsgBox hh & " à l'adresse " & hh.Address
Next
'--------
--
Salutations
JJ
"luc c" <luc.champagne01@videotron.ca> a écrit dans le message de news:
Quu1i.173227$z82.502238@weber.videotron.net...
helas, le fait de remplacer les crochets par des parenthese ne fonctionne
pas ?
pourquoi ?
"Jacky" <Dupond@dupont.fr> a écrit dans le message de news:
Oz157DLlHHA.4188@TK2MSFTNGP02.phx.gbl...
Bonjour,
'----------
For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne)
UserForm1.ListBox1.AddItem hh
Next
'-----------
--
Salutations
JJ
"luc c" <luc.champagne01@videotron.ca> a écrit dans le message de news:
Sbk1i.141035$z82.402918@weber.videotron.net...
salut
voici le défi
deux liste deroulante.
lors du choix de la premiere, la deuxieme pointe vers une zone de liste
HORIZONTALE.
donc
case select dd
case 2500
ligne = 6
case 2400
ligne = 5
end select
dim hh as range
for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k &
ligne].Cells
listebox1.AddItem hh
Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec
Re... Si ce code ne fonctionne pas, le problème est ailleurs... tester comme ceci '--------- For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne) MsgBox hh & " à l'adresse " & hh.Address Next '--------
-- Salutations JJ
"luc c" a écrit dans le message de news: Quu1i.173227$
helas, le fait de remplacer les crochets par des parenthese ne fonctionne pas ?
pourquoi ?
"Jacky" a écrit dans le message de news:
Bonjour,
'---------- For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne) UserForm1.ListBox1.AddItem hh Next '-----------
-- Salutations JJ
"luc c" a écrit dans le message de news: Sbk1i.141035$
salut
voici le défi
deux liste deroulante. lors du choix de la premiere, la deuxieme pointe vers une zone de liste HORIZONTALE.
donc
case select dd case 2500 ligne = 6 case 2400 ligne = 5 end select dim hh as range for each hh in ThisWorkbook.Worksheets("données").[c & ligne:k & ligne].Cells listebox1.AddItem hh Next
End Sub
mais voila que cette syntaxe ne fonctionne pas avec