Ajouter un F dans chaque cellule

[franck70]

Bonjour,

Mon problème est relativement simple, mais je suis un peu rouillé.

J'ai des numéros à 6 chiffres dans des cellules d'une même colonne. Parfois, en plus de ces 6 chiffres, il y a un I à la fin.
Je souhaite créer une macro qui descendrait toutes les cellules de cette colonne et qui ajouterait un F à la fin du chiffre, sauf s'il y a un I à la fin (dans ce cas, il ne faut rien faire).

En pièce jointe, il y a un exemple avant après.

Merci par avance car j'ai vraiment du mal à me souvenir comment on fait ça!

 

[JCGL]

Re : Ajouter un F dans chaque cellule

Bonsoir à tous,

Si la macro n'est pas absolument obligatoire :

=SI(DROITE(B3;1)="I";B3;B3&"F")

A placer en C3 sur ton fichier et tirer vers le bas

A+

 

[Compte Supprimé 979]

Re : Ajouter un F dans chaque cellule

Salut Franck70

Il te faut un petit code du style; si les valeurs sont dans la colonne A :

Sub AjoutF()
For Each Cel in Range("A1:A65536")
If Cel.value <> "" And Right(Cel.Value,1)<>"I" then
  Cel.Value = Cel.Value & "F"
End If
Next
End Sub

Voilà 😉

 

[franck70]

Re : Ajouter un F dans chaque cellule

Merci à vous 2.

JCGL, je voulais une macro car je ne peux pas ajouter de colonne dans le fichier car celui-ci est ensuite intégré dans un logiciel et je dois donc le laisser avec la forme qu'il a. Par contre, c'est vrai que j'avais pas penser à faire une macro rajoutant une colonne, mettre ta formule, faire un copier -coller en valeur puis supprimer la colonne d'origine. C'était dans mes cordes, même si je suis un peu rouillé.

BrunoM45vv, merci beaucoup, c'est exactement ce qu'il me fallait. C'était le cel.value qui me manquait et j'étais pas prêt de le trouver!

Bonne soirée à tous.