Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Variable paramétrée

Variable paramétrée

3 réponses
Avatar
Serge
Bonjour,

Voici une ligne de code

UserForm5.TextBox1 = Worksheets("Objectif").Range(C2) .Value

ou je souhaiterais grâce à 2 boucles faire varier ma variable C2 en i pour C
et j pour 2
c'est à dire

for i = 1 to 10
for j =1 to 5
UserForm5.TextBox1 = Worksheets("Objectif").Range(ij) .Value <--
comment écrire ij ?
next j
next i

Meric de votre aide
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Gaenonius
UserForm5.TextBox1 = Worksheets("Objectif").Cells(i,j).Value

--
Gaenonius

Bonjour,

Voici une ligne de code

UserForm5.TextBox1 = Worksheets("Objectif").Range(C2) .Value

ou je souhaiterais grâce à 2 boucles faire varier ma variable C2 en i pour C
et j pour 2
c'est à dire

for i = 1 to 10
for j =1 to 5
UserForm5.TextBox1 = Worksheets("Objectif").Range(ij) .Value <--
comment écrire ij ?
next j
next i

Meric de votre aide




Avatar
LSteph
Bonsoir Serge,
UserForm5.TextBox1 = Worksheets("Objectif").Range(C2) .Value
plutôt Range("C2")

Sinon
for i = 1 to 10
for j =1 to 5
UserForm5.TextBox1 = Worksheets("Objectif").Range(ij) .Value
<-- comment écrire ij ?
next j
next i
même si on fait :

for i = 1 to 10
for j =1 to 5
UserForm5.TextBox1 = Worksheets("Objectif").cells(i,j)
...
en fin de boucle cela revient à sans boucle
UserForm5.TextBox1 = Worksheets("Objectif").cells(10,5)

l'intérêt serait pluspour un truc du genre:

Private Sub UserForm_Initialize()
For i = 1 To 10
For j = 1 To 5
Me.ComboBox1.AddItem Worksheets("Objectif").Cells(i, j)
Next j
Next i
End Sub

'lSteph

"Serge" <serge.g8[NO SPAM]@laposte.net> a écrit dans le message de news:
41d47266$0$15042$
Bonjour,

Voici une ligne de code

UserForm5.TextBox1 = Worksheets("Objectif").Range(C2) .Value

ou je souhaiterais grâce à 2 boucles faire varier ma variable C2 en i pour
C et j pour 2
c'est à dire

for i = 1 to 10
for j =1 to 5
UserForm5.TextBox1 = Worksheets("Objectif").Range(ij) .Value
<-- comment écrire ij ?
next j
next i

Meric de votre aide



Avatar
LSteph
Bonjour,
Pour complèter le principe de ta question , dans l'aide de VBA
outre Cells(i,j)
tu trouvera offset(ligne,colonne) qui sert à décaler une réf
ex: Activecell.offset(-1,2)
ligne au dessus deux colonnes plus loin.

Sinon pour boucler une plage de cellules ceci est plus simple que For i ..:
Private Sub UserForm_Initialize()
Dim c
For Each c In Range("a1:j5").Cells
Me.ComboBox1.AddItem c
Next
End Sub

'lSteph


"LSteph" a écrit dans le message de news:
OV3V%
Bonsoir Serge,
UserForm5.TextBox1 = Worksheets("Objectif").Range(C2) .Value
plutôt Range("C2")

Sinon
for i = 1 to 10
for j =1 to 5
UserForm5.TextBox1 = Worksheets("Objectif").Range(ij) .Value
<-- comment écrire ij ?
next j
next i
même si on fait :

for i = 1 to 10
for j =1 to 5
UserForm5.TextBox1 = Worksheets("Objectif").cells(i,j)
...
en fin de boucle cela revient à sans boucle
UserForm5.TextBox1 = Worksheets("Objectif").cells(10,5)

l'intérêt serait pluspour un truc du genre:

Private Sub UserForm_Initialize()
For i = 1 To 10
For j = 1 To 5
Me.ComboBox1.AddItem Worksheets("Objectif").Cells(i, j)
Next j
Next i
End Sub

'lSteph

"Serge" <serge.g8[NO SPAM]@laposte.net> a écrit dans le message de news:
41d47266$0$15042$
Bonjour,

Voici une ligne de code

UserForm5.TextBox1 = Worksheets("Objectif").Range(C2) .Value

ou je souhaiterais grâce à 2 boucles faire varier ma variable C2 en i
pour C et j pour 2
c'est à dire

for i = 1 to 10
for j =1 to 5
UserForm5.TextBox1 = Worksheets("Objectif").Range(ij) .Value
<-- comment écrire ij ?
next j
next i

Meric de votre aide