si, recherche et remplacer

[Damien76]

Bonjour

Je suis occupé de réalisé un programme en VBA mais je reste bloqué sur un sujet peut-être simple mais pas moyen de trouver comment le réaliser. Pour changer les données sur la colonne A pas de soucis mais je voudrais ajoute que SI en colonne B (equipe) il s'agit d'un 1, 2, 3 ou 4, selon ce que j'ecris dans (equipe),ect.... que les donées change en colonne A

Quelqu'un pourrait m'aider ?
merci


Dim Cell As Range
Dim Mot As Variant
Dim Replace As Variant
Dim equipe As Variant

equipe = InputBox("quelles équipes ?", Title:="équipes")
Mot = InputBox("Quel mot recherchez-vous ?", Title:="Recherche un mot")
Replace = InputBox("Par quel mot voulez vous remplacer ?", Title:="Remplacer le mot trouver")
If equipe = "" Then Exit Sub
If Mot = "" Then Exit Sub
If Replace = "" Then Exit Sub


If equipe = True Then
Sheets("blad1").Range("a1:a500").Replace what:=Mot, Replacement:=Replace
End If

 

[Sheldor]

Re : si, recherche et remplacer

bonjour
un truc genre

for i = 1 to 100 'nb à adapter
if cells(i,1)=Mot and cells(i,2)=equipe then cells(i,1)=Replace
next i

à tester

 

[Sheldor]

Re : si, recherche et remplacer

fais gaffe que replace ne soit pas un terme vba (saisie en minuscule, s'il met une majuscule c'est pas bon signe)