Changer le nom de la cellule précédente

[Dune03]

Bonjour,

Avec mes faibles connaissances en VBA, j'essaie de construire une macro qui passe toutes les cellules d'une zone d'une feuille pour détecter un nom particulier et dans le cas positif changer la valeur de la céllue précédente.

je ne pense ne pas être loin avec le code que j'ai écrit, mais cela plante encore:

Sub Remplacement()

For i = 1 To 2292
For j = 1 To 250
If Cells(i, j) = 'Nom 1' Then
Cells(i, j - 1) = 'Nom 2'
End If

Next j
Next i

End Sub

Si quelqu'un pouvait m'aider, merci d'avance

 

[Guitarde]

Ca plante car tu essaye de remplacer le contenu d'une cellule par celle de la colonne juste avant.

Tu commences par la première colonne, la valeur viendrait alors de la colonne 0 qui n'existe pas.

Salutations
Eric

 

[Charly2]

Bonsoir Dune03 et Guitarde

Ce qui va sans dire va encore mieux en le disant :

Sub Remplacement()
  For i = 1 To 2292
    For j = 2 To 250
      If Cells(i, j) = 'Nom 1' Then
        Cells(i, j - 1) = 'Nom 2'
      End If
    Next j
  Next i
End Sub

Voili voilà

Amicalement
Charly

 

[Dune03]

Merci, cela fonctionne!

En fait pour répondre à Guitarde, je cherchais à remplacer le contenu 'B3', par exemple, si la cellule 'C3' correspondait à un nom particulier.

Merci de m'avoir répondu