Discussion :

[yperrin55]

Bonjour,

J'ai un petit problème avec le code suivant.
Je veux rechercher le texte test dans chaque colonne de la 2eme à la 5eme et si c'est le cas, remplir la 3eme ligne et la 6eme avec tata et toto respectivement.
Je n'utilise pas la fonction SI car j'ai des listes dans ces 3emes et 6emes lignes.

Quand j'écris test dans la colonne B 2eme ligne, ça fonctionne, cependant excel plante complètement.
De plus, j'ai ces deux messages qui apparaissent :

Erreur d'exécution '-2147417848 (80010108)': La méthode '_Defaut' de l'objet Range' a échoué

Erreur d'exécution '28': Espace pile insuffisant

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 2 To 5
    If InStr(Cells(2, i), "test") > 0 Then
        Cells(3, i) = "tata"
        Cells(6, i) = "toto"
    End If
Next i
 
End Sub

Je ne vois pas quel est le problème... un petite aide svp?

[Invité]

Bonjour,

Il faut neutraliser l'événement, sinon la boucle s'auto-alimente à l'infini :

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim I As Integer
 
        Application.EnableEvents = False
        For I = 2 To 5
            If InStr(Cells(2, I), "test") > 0 Then
                Cells(3, I) = "tata"
                Cells(6, I) = "toto"
            End If
        Next I
        Application.EnableEvents = True
 
End Sub

[yperrin55]

ah ok, donc en gros elle redémarre à la colonne 2 à chaque fois en gros?

Merci de ton aide ! je mets en résolu!