[VBA] Boucle for
Résolu/Fermé
Napalawow
Messages postés
38
Date d'inscription
mardi 29 avril 2008
Statut
Membre
Dernière intervention
28 mai 2008
-
11 mai 2008 à 00:22
Napalawow Messages postés 38 Date d'inscription mardi 29 avril 2008 Statut Membre Dernière intervention 28 mai 2008 - 11 mai 2008 à 17:15
Napalawow Messages postés 38 Date d'inscription mardi 29 avril 2008 Statut Membre Dernière intervention 28 mai 2008 - 11 mai 2008 à 17:15
A voir également:
- [VBA] Boucle for
- Find vba - Astuces et Solutions
- Download instagram for pc - Télécharger - Divers Communication
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Saveaspdf.exe for office 2007 - Télécharger - Bureautique
8 réponses
byakhlefncr
Messages postés
260
Date d'inscription
vendredi 1 juillet 2005
Statut
Membre
Dernière intervention
11 septembre 2008
63
11 mai 2008 à 02:49
11 mai 2008 à 02:49
Salut,
il vaut mieux écrire :
For i=20 to 10 Step-1
[ici le code pour le taitement des cellules concernées. ex : Cells(i, 1)]
Bonne chance
il vaut mieux écrire :
For i=20 to 10 Step-1
[ici le code pour le taitement des cellules concernées. ex : Cells(i, 1)]
Bonne chance
Napalawow
Messages postés
38
Date d'inscription
mardi 29 avril 2008
Statut
Membre
Dernière intervention
28 mai 2008
1
11 mai 2008 à 12:13
11 mai 2008 à 12:13
OK d'accord mais si je veux que la Boucle FOR s'applique sur la colonne D et non plus dans la colonne A
Comment je fais alors ???
Merci
Comment je fais alors ???
Merci
byakhlefncr
Messages postés
260
Date d'inscription
vendredi 1 juillet 2005
Statut
Membre
Dernière intervention
11 septembre 2008
63
11 mai 2008 à 12:58
11 mai 2008 à 12:58
Bonjour,
Pour la colonne D changer l'indice 1 en 4 ==> Cells(i,4).
Pour la colonne D changer l'indice 1 en 4 ==> Cells(i,4).
Napalawow
Messages postés
38
Date d'inscription
mardi 29 avril 2008
Statut
Membre
Dernière intervention
28 mai 2008
1
11 mai 2008 à 13:05
11 mai 2008 à 13:05
Ca d'accord
Ca donne donc, pour boucle for colonne D :
^^
merci!
Ca donne donc, pour boucle for colonne D :
FOR Cells(i,4)=20 to 10 Step-1??
^^
merci!
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
byakhlefncr
Messages postés
260
Date d'inscription
vendredi 1 juillet 2005
Statut
Membre
Dernière intervention
11 septembre 2008
63
11 mai 2008 à 14:17
11 mai 2008 à 14:17
non ce n'est pas ça.
For i=20 to 10 Step-1
T = Cells(i,4)
For i=20 to 10 Step-1
T = Cells(i,4)
Napalawow
Messages postés
38
Date d'inscription
mardi 29 avril 2008
Statut
Membre
Dernière intervention
28 mai 2008
1
11 mai 2008 à 14:31
11 mai 2008 à 14:31
Yep byakhlefncr ! ; )
euuuuuuuuuuuuuuuuuuuuh (excuse moi d'être aussi nul) mais ton code
ne ve pas se compiler
Je ne comprend pas déjà le => "T" qu'est ce que C'est , une variable donc il faut la déclarer par exemple en integer.
Voici comment j'ai compiler ton bout de code avec mon code
Merci de ta patience envers mon problème de débutant (c'est le cas de le dire !!)
N'hésite pas à me demander d'être plus clair !^^
Aller++
euuuuuuuuuuuuuuuuuuuuh (excuse moi d'être aussi nul) mais ton code
For i=20 to 10 Step-1 T = Cells(i,4)
ne ve pas se compiler
Je ne comprend pas déjà le => "T" qu'est ce que C'est , une variable donc il faut la déclarer par exemple en integer.
Voici comment j'ai compiler ton bout de code avec mon code
sub tuvamarchelamacro() Dim i as interger Dim T as interger For i=20 to 10 Step-1 T = Cells(i,4) | | |ICI CODE POUR QUI SUPPRIMER LIGNES SOUS CONDITIONS ! | | Next i end sub
Merci de ta patience envers mon problème de débutant (c'est le cas de le dire !!)
N'hésite pas à me demander d'être plus clair !^^
Aller++
byakhlefncr
Messages postés
260
Date d'inscription
vendredi 1 juillet 2005
Statut
Membre
Dernière intervention
11 septembre 2008
63
11 mai 2008 à 15:02
11 mai 2008 à 15:02
Voici un exemple qui supprime les lignes entre 10 et 20 qui ont les valeurs de la colonne D < 50 :
Sub Supprimer()
Dim i As Integer
For i = 20 To 10 Step -1
If Cells(i, 4) < 50 Then
Feuil1.Rows(i).Delete
End If
Next i
End Sub
Sub Supprimer()
Dim i As Integer
For i = 20 To 10 Step -1
If Cells(i, 4) < 50 Then
Feuil1.Rows(i).Delete
End If
Next i
End Sub
Napalawow
Messages postés
38
Date d'inscription
mardi 29 avril 2008
Statut
Membre
Dernière intervention
28 mai 2008
1
11 mai 2008 à 17:15
11 mai 2008 à 17:15
Yop !
MERCi a toi byakhlafncr,
Avec ton mini exemple j'ai bien comprit. J'ai pu le "transplanter" sur mon prog.
Voila Merci encore et passe un bon et heureux lundi.
Sincèrement!
+
MERCi a toi byakhlafncr,
Avec ton mini exemple j'ai bien comprit. J'ai pu le "transplanter" sur mon prog.
Voila Merci encore et passe un bon et heureux lundi.
Sincèrement!
+