Macro boucle

Salut à tous !

je vous explique mon problème :

J'aurai besoin de créer une macro qui quand je la lance sélectionne (aille ?) à la prochaine cellule différente de celle séléctionnée (de manière verticale) et ce sur n'importe quel workbook/worksheet

c'est à dire que cela peut se faire en descendant juste d'une cellule si celle en dessous de la cellule sélectionnée est directement différente, mais aussi beaucoup plus bas si j'ai une colonne avec les 300 premières cellules identiques, il faudrait donc qu'en lançant la macro, j'aille sur la 301ème

De plus on parle d'une macro avec toute sortes de valeurs (pas que numériques)

j'avais pensé a l'outil loop (boucle) mais j'avoue que je suis bloqué, si quelqu'un pouvait m'aider...

merci bien !

Bonjour,

Un bouton "suivant" lié au code suivant :

Sub Suivante() 
Cpt =1
Do
If activecell. Offset(Cpt) <>activecell Then Exit do
Cpt = Cpt + 1
Loop
Activecell.Offset(cpt).activate
End sub

@ bientôt

LouReeD

Bonjour Eliott, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim V As Variant 'déclare la variable V (Valeur)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim LD As Long 'déclare la variable LD (Ligne du Début)
Dim LF As Long 'déclare la variable LF (Ligne de Fin)

V = ActiveCell.Value 'définit la valeur V
COL = ActiveCell.Column 'définit la colonne COL
LD = ActiveCell.Row 'définit la ligne du début LD
LF = Cells(Application.Rows.Count, COL).End(xlUp).Row 'définit la ligne de fin LF
For I = LD To LF 'boucle sur toutes les ligne I de LD à LF
    If Cells(I, COL) <> V Then Cells(I, COL).Select: Exit Sub 'si la valeur de la ligne de la boucle est différente de V, sélectionne la ligne, sort de la procédure
Next I 'prochaine ligne de la boucle
MsgBox "Pas de valeur différente !" 'sinon, message
End Sub

[Édition]

Bonjour LouReeD, nos posts se sont croisés...

Pas de soucis, les fils ne sont pas réservés au premier intervenant !

Ça fait deux fois que le la sort celle là aujourd'hui !

@ bientôt

LouReeD