Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Qu'est ce qui ne va pas avec cette boucle ?

Qu'est ce qui ne va pas avec cette boucle ?

3 réponses
Avatar
Deedooz
Bonjour,

Je suis une buse avec les boucles ;)

Je veux que dans ma feuil4, les 20 checkboxs présentes (une pour chaque
ligne de 31 à 50)se cochent ou décochent automatiquement en fonction d'un
résultat qui se trouve dans les cases AB31 à AB50 (OUI ou NON)

J'ai ecris ceci :
i = 1
j = 31
For i = 1 To 20
If Feuil4.Range("AB" & j).Value2 = "NON" Then
Checkbox & i.Value = False
Else
Checkbox & i.Value = True
End If
Next i

Merci d'avance
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
ICSD n&f

Bonjour,

Je suis une buse avec les boucles ;)

Je veux que dans ma feuil4, les 20 checkboxs présentes (une pour chaq ue
ligne de 31 à 50)se cochent ou décochent automatiquement en fonctio n d'un
résultat qui se trouve dans les cases AB31 à AB50 (OUI ou NON)

J'ai ecris ceci :
i = 1
inutile, plus loin il y a for i=1....

j = 31
For i = 1 To 20
If Feuil4.Range("AB" & j).Value2 = "NON" Then
j reste toujours à 31

Checkbox & i.Value = False
Else
Checkbox & i.Value = True
End If
ici icrémenter j j=j+1

Next i

Merci d'avance





Avatar
Jo-Soupin
bonjour Deedooz,

Sub toto()

i = 1

For i = 1 To 20
If Feuil4.Range("AB" & i + 30).Value2 = "NON" Then
Feuil4.OLEObjects("checkbox" & i).Object.Value = False
Else
Feuil4.OLEObjects("checkbox" & i).Object.Value = True
End If
Next i

End Sub
Avatar
Deedooz
Merci pour tout, c'est exactement ce qu'il me fallait !! :)

Je ne savais pas qu'il fallait préciser OLEObjects...



"Jo-Soupin" a écrit dans le message de
news:
bonjour Deedooz,

Sub toto()

i = 1

For i = 1 To 20
If Feuil4.Range("AB" & i + 30).Value2 = "NON" Then
Feuil4.OLEObjects("checkbox" & i).Object.Value = False
Else
Feuil4.OLEObjects("checkbox" & i).Object.Value = True
End If
Next i

End Sub