BenHarber
XLDnaute Occasionnel
Bonsoir à tous,
Voici mon pb : chaque cellule de A1 à A20 contient une valeur : disons 'toto', 'tata' ou 'tutu'. Je souhaite que la saisie faite dans l'une des cellules B1 à B20 (disons à côté du mot 'toto') se recopie automatiquement sur la zone B1 à B20 en face de tous les mots 'toto' qu'il peut y avoir.
J'ai donc saisi le code suivant :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim znSaisie As Range
Set znSaisie = Range('B1:B20')
If Not Application.Intersect(znSaisie, Range(Target.Address)) Is Nothing Then
maSaisie = Range(Target.Address).Value
maRef = Range(Target.Address).Offset(0, -1).Value
For Each c In znSaisie.Offset(0, -1)
If c = maRef Then
c.Offset(0, 1) = maSaisie
End If
Next c
End If
End Sub
L'ennui, c'est que cette macro 'boucle' sans jamais s'arrêter !
Quelqu'un aurait-t-il une idée ?
Merci d'avance pour vos conseils !
BenHarber
Voici mon pb : chaque cellule de A1 à A20 contient une valeur : disons 'toto', 'tata' ou 'tutu'. Je souhaite que la saisie faite dans l'une des cellules B1 à B20 (disons à côté du mot 'toto') se recopie automatiquement sur la zone B1 à B20 en face de tous les mots 'toto' qu'il peut y avoir.
J'ai donc saisi le code suivant :
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim znSaisie As Range
Set znSaisie = Range('B1:B20')
If Not Application.Intersect(znSaisie, Range(Target.Address)) Is Nothing Then
maSaisie = Range(Target.Address).Value
maRef = Range(Target.Address).Offset(0, -1).Value
For Each c In znSaisie.Offset(0, -1)
If c = maRef Then
c.Offset(0, 1) = maSaisie
End If
Next c
End If
End Sub
L'ennui, c'est que cette macro 'boucle' sans jamais s'arrêter !
Quelqu'un aurait-t-il une idée ?
Merci d'avance pour vos conseils !
BenHarber