Excel VBA supprimer le catactère

Résolu/Fermé
pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 - 14 déc. 2009 à 09:22
pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 - 14 déc. 2009 à 10:38
Bonjour,
j'expose mon problème:
j'ai dans les cellules de la colonne G ce genre d'écriture:
G1_1
G2_1
G2_2
... je souhaiterai pouvoir tester si la cellule contien le caratère _ alors le supprimer et concatener les 2 parties:
G11
G21
G22 et ainsi de suite (j'ai déja le début de la boucle avec le nombre de cellules variable)
Dim i As Integer
For i = 1 To lignes
Next i
par avance merci. Pou Pouille
A voir également:

2 réponses

Réponse 1 / 2
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 718
14 déc. 2009 à 10:11
bonjour

Avec ce code tu devrais avoir ton résultat : 
Public Sub supcar()
Dim i As Long
For i = 1 To Cells(Columns(1).Cells.Count, "G").End(xlUp).Row
    Cells(i, "G").Value = Replace(Cells(i, "G").Value, "_", "")
Next i
End Sub
0
Réponse 2 / 2
pou pouille Messages postés 207 Date d'inscription mardi 20 octobre 2009 Statut Membre Dernière intervention 20 juillet 2012 31
14 déc. 2009 à 10:38
ca fonctionne parfaitement , merci
0