Discussion :

[tmk21fr]

Bonjour à tous,

Je souhaiterais réaliser une boucle qui me permettra de réaliser la même opération de la ligne 2 à la ligne 2123.

Existe t il une boucle qui m'éviterai de taper toutes les lignes pour l'application de cette macro?

Voici la macro:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
If Sheets("Invitations").Range("A3").Value = Range("A2").Value Then
    Sheets("Invitations").Rows("2").Select
    Selection.EntireRow.Hidden = True
     End If
     If Sheets("Invitations").Range("A4").Value = Range("A3").Value Then
    Sheets("Invitations").Rows("3").Select
    Selection.EntireRow.Hidden = True
     End If
     If Sheets("Invitations").Range("A5").Value = Range("A4").Value Then
    Sheets("Invitations").Rows("4").Select
    Selection.EntireRow.Hidden = True
     End If
     If Sheets("Invitations").Range("A6").Value = Range("A5").Value Then
    Sheets("Invitations").Rows("5").Select
    Selection.EntireRow.Hidden = True
     End If
     If Sheets("Invitations").Range("A7").Value = Range("A6").Value Then
    Sheets("Invitations").Rows("6").Select
    Selection.EntireRow.Hidden = True
    End If

Merci d'avance.
Comment fait on pour séparer le modèle de macro du texte dans le forum?

[helas]

Bonsoir,
avec une boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
For ligne = 3 To 243
 If Sheets("Invitations").Range("A" & cstr(ligne)).Value = Range("A" & Csrt(ligne-1)).Value Then
   Sheets("Invitations").Rows(ligne-1).Select
   Selection.EntireRow.Hidden = True
  End If
Next ligne

[patricktoulon]

bonjour

essai ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
sub verif ()
dim i as long
for i = 2 to 2123
 Sheets("Invitations").Range("A" & i).Value = Range("A"& (i-1)).Value then 
Sheets("Invitations").Rows((i-1)).EntireRow.Hidden = True
 
end if 
next
end sub

au plaisir

[tmk21fr]

Merci à vous "Patricktoulon" et "Helas".

Dans les 2 cas, il me met une erreur de syntaxe et erreur de compilation

[patricktoulon]

rebonjour

j'avais oublié le "if devant Sheets("Invitations")"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
 
 
sub verif ()
dim i as long
for i = 2 to 2123
 if Sheets("Invitations").Range("A" & i).Value = Range("A"& (i-1)).Value then 
Sheets("Invitations").Rows((i-1)).EntireRow.Hidden = True
 
end if 
next
end sub

mille excuses


au plaisir

[tmk21fr]

Yes, merci pour votre aide, ça fonctionne.

Merci encore.