Mettre fin à une macro (si présence d'une valeur)

Bonsoir,

J'ai encore une demande d'aide à formuler.. (pas facile je l'avoue).

J'aimerai créer une macro qui s'arrête lorsque 3 cellules au moins sont remplies parmi 4 colonnes.

Colonnes dont il faut obligatoirement une info C et D, et pour continuer la macro, il faut qu'il y ait soit une valeur présente en E de la même ligne ou en F de la même ligne ou E ET F.

Par exemple :

Dim i as Long

For i = 4 to 65000

blablabla... formule... blablabla

Sub Arret()

=SI(ET(Cell(i, C).value >< "" ; Cell(i,D).value >< "") Then Grace à ce i, mettre fin à la macro au dessus.

Enfin voila, c'est très brouillon mais j'ai plein d'idées mais pas les connaissances nécessaires.

Si quelqu'un peut m'aider ce serait super.

Cordialement

Bonsoir,

c'est très brouillon mais j'ai plein d'idées mais pas les connaissances nécessaires.

Euh, pour nous, c'est peut-être l'inverse, mais c'est si bien dit, ton début de phrase....

Pourquoi aller jusqu'à la ligne 65000?

En supposant que ton tableau fasse de la cellule A2 à Axx, tu pourrais essayer :

Sub Jeff()
Dim DerLig As Long, I As Long
DerLig = Cells(Rows.Count, "A").End(xlUp).Row
For I = 2 To DerLig
    If Application.CountA(Cells(I, "C").Resize(1, 2)) = 2 And Application.CountA(Cells(I, "E").Resize(1, 2)) >= 1 Then
        'le code
    End If
Next I
End Sub

Mais un fichier exemple, exempt de données confidentielles, et ayant la même structure que ton fichier de travail, serait un plus.

Bon courage

C'est exactement ce que je cherchais!!

Un grand merci à toi!

Cordialement