Vba..Boucle + If
Résolu
Waty By Night
-
dct33 Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
dct33 Messages postés 41 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
je réalise un programme en vba et je dois présenter le projet à 14h.. XD..
Voici le code
et ça me dit "variable objet ou variable de bloc with non définie"
en effectuant la macro en pas à pas, on sait que l'erreur vient à partir du if, mais je ne vois pas ce qui bloque..
Pourriez vous m'aidez s'il vous plaît ?
Merci
je réalise un programme en vba et je dois présenter le projet à 14h.. XD..
Voici le code
Sub sup()
Dim i As Long
Dim cll As Range
Dim j As Long
Range("J2", [J2].End(xlDown)).Select
j = Selection.Count
For i = 2 To j
Cells(i, "J").Select
If InStr(cll, "APPRENTI") = 0 Then
cll.EntireRow.Delete
End If
Next i
End Sub
et ça me dit "variable objet ou variable de bloc with non définie"
en effectuant la macro en pas à pas, on sait que l'erreur vient à partir du if, mais je ne vois pas ce qui bloque..
Pourriez vous m'aidez s'il vous plaît ?
Merci
4 réponses
Sub sup()
Dim i As Long
Dim cll As Range
Dim j As Long
Range("J2", [J2].End(xlDown)).Select
j = Selection.Count
For i = 2 To j
Cells(i, "J").Select
If InStr(Cells(i, "J"), "APPRENTI") = 0 And Cells(i, "J") <> "" Then
Cells(i, "J").EntireRow.Delete
i = i - 1
End If
Next i
End Sub
Dim i As Long
Dim cll As Range
Dim j As Long
Range("J2", [J2].End(xlDown)).Select
j = Selection.Count
For i = 2 To j
Cells(i, "J").Select
If InStr(Cells(i, "J"), "APPRENTI") = 0 And Cells(i, "J") <> "" Then
Cells(i, "J").EntireRow.Delete
i = i - 1
End If
Next i
End Sub
Bonjour,
Dans le If c'est "cll" qui n'est pas défini.
Il suffit de faire :
Pourquoi compliquer quand on peut faire simple ???
;o)
Dans le If c'est "cll" qui n'est pas défini.
Il suffit de faire :
For i = 2 To j
If InStr(Cells(i, 8).Value, "APPRENTI") = 0 Then
Rows(i).Delete
End If
Next i
Pourquoi compliquer quand on peut faire simple ???
;o)
Bonsoir,
Je vous ai fait ça vite fait
effectivement il y as des trucs qui ne servent à rien
par contre décrémenter J était utile
M Polux 31 une chose peut vous être reconnu c'est votre manque de courtoisie
j'aurais préféré que vous ajoutiez un truc qui fonctionne et non pas un bidouillage qui ne répond pas au problème car sans décrémentation de i et de J cela ne fonctionne pas
Et avant de parler de sucer son pouce il faudrait que vous preniez un peu de maturité
Salutations
Je vous ai fait ça vite fait
effectivement il y as des trucs qui ne servent à rien
par contre décrémenter J était utile
M Polux 31 une chose peut vous être reconnu c'est votre manque de courtoisie
j'aurais préféré que vous ajoutiez un truc qui fonctionne et non pas un bidouillage qui ne répond pas au problème car sans décrémentation de i et de J cela ne fonctionne pas
Et avant de parler de sucer son pouce il faudrait que vous preniez un peu de maturité
Salutations
en matière de courtoisie, je n'ai certainement pas de leçon à recevoir par quelqu'un qui poste sans même dire Bonjour.
Il faut aussi lire ce qui est posté. J'ai pris le temps d'expliquer d'où venait l'erreur. Donner une solution sans prendre la peine de dire d'où provient l'erreur n'aidera pas le helpé, ni ceux qui cherchent des réponses.
Ce n'est pas la première que tu interviens sur des postes en étant redondant ou hors sujet.
Pour la petite histoire : i est incrémenté, et non décrémenté, automatiquement dans le For Next jusqu'à atteindre la valeur de j. La variable j est initialisé avant la boucle est sa valeur est fixe dans la boucle et n'a nullement besoin d'être incrémenté ou décrémenté pour que ça fonctionne.
Alors on tourne 7 fois la souris autour du clavier avant d'écrire des arguments sucés de je ne sais où.
Merci
Il faut aussi lire ce qui est posté. J'ai pris le temps d'expliquer d'où venait l'erreur. Donner une solution sans prendre la peine de dire d'où provient l'erreur n'aidera pas le helpé, ni ceux qui cherchent des réponses.
Ce n'est pas la première que tu interviens sur des postes en étant redondant ou hors sujet.
Pour la petite histoire : i est incrémenté, et non décrémenté, automatiquement dans le For Next jusqu'à atteindre la valeur de j. La variable j est initialisé avant la boucle est sa valeur est fixe dans la boucle et n'a nullement besoin d'être incrémenté ou décrémenté pour que ça fonctionne.
Alors on tourne 7 fois la souris autour du clavier avant d'écrire des arguments sucés de je ne sais où.
Merci
Merci d'intervenir pour apporter un complément pouvant améliorer une solution ou corriger une erreur et non pour étaler son savoir.
Merci
Je vous remercie des solutions proposées, Polux, je ne sais pas pourquoi mais ça ne marche pas...
dct 33, ça marche, je te remercie, même si c'est vrai que pour la cellule vide ça n'est pas important.
Merci à vous 2 :)
j'ai omis de rectifier cells(i, 8) par cells(i,"J") ...