comment affecter un "range" selon un au variable

Le
luc c
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4514041
Bonjour.
Range("c" & ligne & ":k" & ligne).Cells
Cordialement.
Daniel
"luc c" 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
Le #4514021
Bonjour,

'----------
For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne)
UserForm1.ListBox1.AddItem hh
Next
'-----------

--
Salutations
JJ


"luc c" 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
Le #4513741
helas, le fait de remplacer les crochets par des parenthese ne fonctionne
pas ?

pourquoi ?



"Jacky"
Bonjour,

'----------
For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne)
UserForm1.ListBox1.AddItem hh
Next
'-----------

--
Salutations
JJ


"luc c" 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
Le #4513721
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" Quu1i.173227$
helas, le fait de remplacer les crochets par des parenthese ne fonctionne
pas ?

pourquoi ?



"Jacky"
Bonjour,

'----------
For Each hh In Sheets("données").Range("c" & ligne & ":k" & ligne)
UserForm1.ListBox1.AddItem hh
Next
'-----------

--
Salutations
JJ


"luc c" 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
















Publicité
Poster une réponse
Anonyme