Bonjour,

J'ai essayé de m'inspirer de codes que j'ai trouvés sur ce forum mais sans succès. Je cherche à remplacer le contenu des cellules d'une base de donnée avec une condition:

Dans la colonne D, lorsque le contenu est "Toto" et que le contenu de la cellule d'après est "R3101", je souhaite remplacer "Toto" par "Tata".

J'ai donc mis ce code:

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
 
 
Sub Test
 
    Dim Plage As Range
    Dim Cel As Range
 
    With ActiveSheet
 
        Set Plage = Range("D:D")
 
    End With
 
    For Each Cel In Plage
 
        If Cel.Value = "Toto" And Cel.Offset(, 1).Value = "R3101" Then ActiveCell.Value = "Tata"
 
    Next Cel
 
End Sub
Mais ma macro fait scotcher le pc et au bout du compte, les cellules en question ne sont même pas remplacées. Je suppose que le pc met longtemps à appliquer la condition à chaque cellule de la colonne, mais je ne vois pas ce qui pourrait aller plus vite et surtout qui ce qui marcherait!

Merci par avance pour vos réponses