Décaler texte cellule vers autre colonne
k
Bonjour à tous,
Je voudrais transférer le contenu d'une cellule vers une autre colonne en fonction de l'indicatif téléphonique :
A1 : Téléphone
A2 : +33600000000
Par exemple, si mon indicatif téléphonique commence par +336, je voudrais directement transférer la cellule A2 vers la colonne B1 : Téléphone Mobile dans la cellule B2
Avez-vous des pistes ?
Cordialement,
Bonjour Korgon06,
Je suppose que ces numéros en format texte sont déjà présents sur une feuille et que tu souhaites un changement de colonne pour certains.
Donc une boucle sur la 1ière colonne devrait te suffire. La ligne 1 est celle des titres.
Sub Boucle()
DerLig=Range("A" & Rows.count).End(xlup).Row
For Lig= 2 to DerLig
if Left(Range("A" & Lig),4)="+336" then Range("B" & Lig)=Range("A" & Lig):Range("A" & Lig).ClearContents
Next Lig
End SubBonne continuation.