[vba] booleen dans une boucle
Dernière réponse : dans Programmation
Salut, je vous explique mon problème:
j'ai un tableau debutant de la cellue (1,1) et se terminant à la cellule (5,6) contenant des booleens (soit des true soit des false) et j'aimerais pour une ligne "ligne a" faire le "and" pour toutes les colonnes et mettre le résultat dans la colonne 7 et "ligne a"
voilà ce qui m'est venu à l'exprit mais cela ne fonctionne pas apparemment:
Sub traitement()
Dim i
Dim j
Dim bool
bool = False
For i = 1 To 5
For j = 1 To 6
bool = bool And Cells(i, j)
Next j
Cells(i, 7) = bool
Next i
End Sub
merci d'avance pour aide
j'ai un tableau debutant de la cellue (1,1) et se terminant à la cellule (5,6) contenant des booleens (soit des true soit des false) et j'aimerais pour une ligne "ligne a" faire le "and" pour toutes les colonnes et mettre le résultat dans la colonne 7 et "ligne a"
voilà ce qui m'est venu à l'exprit mais cela ne fonctionne pas apparemment:
Sub traitement()
Dim i
Dim j
Dim bool
bool = False
For i = 1 To 5
For j = 1 To 6
bool = bool And Cells(i, j)
Next j
Cells(i, 7) = bool
Next i
End Sub
merci d'avance pour aide
Autres pages sur : vba booleen boucle
Lassé par la pub ? Créez un compte
phpagd a dit :
Si tu initialises bool a false, et que tu fais des "and"... T'as tjs un false meme si tu tombes sur un True, nan ?Et t'as oublie le "next j" avt le "next i", je pense ^^
salut non il ya bien un next j avant kle next i à moins que j'ai mal compris ...
effectivement il fallait initialiser à true
mais cela ne fonctionne toujours pas ...
phpagd a dit :
Autant pour moi, j'avais pas vu le next j, dsl ^^;et c a la compilation ou a l'execution que ca plante ? t'as un message d'erreur ?
en faite, y avait une erreur à l'execution, elle me retournait que des fausses, je dis au passé car j'ai trouvé la solution... que je refile ici (si cela peu aider aux autres...)
Sub traitement()
Dim i
Dim j
Dim bool
Sheets(1).Select
bool = True
For i = 1 To 5
For j = 1 To 6
bool = bool And Cells(i, j)
Next j
Cells(i, 7) = bool
bool = True
Next i
End Sub
merci de ton aide en tout cas
bonne journée
) Lassé par la pub ? Créez un compte
