Discussion :

[Lulu3344]

Bonjour à tous,

Dans une feuille Excel, je voudrais rechercher un nom puis ajouter un "1" à côté de ce nom si ce dernier est présent dans la feuille Excel.
Cette opération s'effectue en cliquant sur une case à cocher.

Merci d'avance pour votre aide.

[Menhir]

Dans une feuille Excel, je voudrais rechercher un nom puis ajouter un "1" à côté de ce nom si ce dernier est présent dans la feuille Excel.

En supposant que le nom recherché est en A1 et que la zone de recherche soit B1:B10

Code :

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

=SI(ESTNA(EQUIV(A1;B1:B10;0));"";A1&"1")

Cette opération s'effectue en cliquant sur une case à cocher.

Recherches-tu une formule Excel ou du code VBA ?
Si c'est le second cas, ton message ne se trouve pas dans la bonne rubrique.

[Lulu3344]

Plutôt un code VBA.

[Menhir]

Dans ce cas, il faudrait que tu expliques un peu plus ce que tu comptes faire du résultat obtenu : le mettre dans une variable ? L'afficher dans une cellule ? etc.

[Lulu3344]

Je compte l'afficher dans une cellule. (ex : Nom Prénom (1))

[Menhir]

En supposant que le nom recherché est en A1, que la zone de recherche soit B1:B10 et le résultat soit à mettre en C1.

Code :

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

1
2
3
Dim Res As Range
Res = Range("B1:B10").Find(Range("A1").Value)
If Res Is Nothing Then Range("C1").Value = "" Else Range("C1").Value = Range("A1").Value & "1"

[Theze]

Bonjour,

Ne pas oublier "Set" devant Res = Range... :

Code :

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

1
2
 
Set Res = Range("B1:B10").Find(Range("A1").Value)

[Lulu3344]

Merci beaucoup pour votre aide.