ajouter un caratère à la fin d'une cellule

[arvin]

bonjour à tous !

voilà j'ai 2 feuilles : si une cellule est à la fois dans la feuille 1 et la feuille 2 , je voudrais que dans la feuille 2 , à la fin de la cellule onn rajoute le caratère "$"

feuille 1 : liste de nom

feuille 2 : si toto apparait et qu'il y a toto dans la feuille 1, alors on rajoute à la fin de toto => "toto $"

merci à tous : j'ai essayé ceci mais .....: =A1&'0'

 

[Cousinhub]

Re : ajouter un caratère à la fin d'une cellule

Bonjour, regard le fichier

 

[arvin]

Re : ajouter un caratère à la fin d'une cellule

bonjour, merci encore de ta réponse on touche au but : en fait c'est cela mais en feuille 3 il n'y a pas de dates, que des noms

aujourd'hui on est semaine 34 donc si un nom figure en feuille 3 et en feuille 1 et bien il aura un $ en feuille 3 à côté de son nom

merci encore je compte sur cette dernière demande pour fignoler mon projet

 

[Cousinhub]

Re : ajouter un caratère à la fin d'une cellule

Bonjour, dans le code proposé, tu supprimes les lignes :

' nosem = WkIso(cel.Offset(0, -1).Value) <= Ici
' If nosem = cetsem Then <= Ici
............
If Not IsError(x) Then cel.Value = cel.Value & "$"
End If
' End If <= Ici
Next cel

et vérifie que tes noms sont bien dans les colonnes testées :

For Each cel In Sheets("Feuil3").Range("B2:B" & [b65000].End(xlUp).Row)

=> colonne B de la feuille 3

colonne A pour les autres feuilles

 

[arvin]

Re : ajouter un caratère à la fin d'une cellule

coucou bhbh !!!!!

Excellent travail cela a l'air de fonctionner parfaitement en semaine 34, je verrai lundi pour la semaine impaire 35

Merci encore et passe un excellent week end

j'espère à bientôt