VBA

lepeuple Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
lepeuple Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -
Hello tout le monde,

Voilà mon code que j'ai fait (avec la super aide de la communauté) pour une cellule SEULEMENT mais j'aimerai maintenant la transformer maintenant pour une colonne ENTIERE; Can u help me ?

Sub Test()

If Left(Range("L2"), 2) = "B+" Then chaine = Right(Range("L2"), Len(Range("L2")) - 2) Else chaine = ""
Range("L2") = chaine


If Right(Range("L2"), 3) = "bps" Then chaine = Left(Range("L2"), Len(Range("L2")) - 3) Else chaine = ""
Range("L2") = chaine



End Sub

Mille mercis les amis !

Adri

1 réponse

Réponse 1 / 1
via55 Messages postés 14512 Date d'inscription   Statut Membre Dernière intervention   2 746
 
Bonsoir

Si tu veux l'appliquer à une colonne il faut l'inclure dans une boucle
Par exemple pour traiter les lignes 2 à 100 : 

Sub Test() 
For ligne= 2 to 100
If Left(Range("L" & ligne), 2) = "B+" Then chaine = Right(Range("L" & ligne), Len(Range("L" & ligne)) - 2) Else chaine = "" 
Range("L" & ligne) = chaine 


If Right(Range("L" & ligne), 3) = "bps" Then chaine = Left(Range("L" & ligne), Len(Range("L" & ligne)) - 3) Else chaine = "" 
Range("L" & ligne) = chaine 


Next ligne

End Sub


Cdlmnt
Via--
"L'imagination est plus importante que le savoir." A. Einstein
0
lepeuple Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
Merci via55 ! C'est super sympa de ta part ! J'espere pouvoir t'aider rapidement un jour ! Bonne journée !
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
appliquer une pause dans une macro vba excel
ch'duj -
lerif25 -

10 réponses
ouverture d'un fichier excel à partir d'un code VBA
TraderAS -
pijaku -

3 réponses
Méthode find dans VBA - Recherche de données sous Excel
baissaoui -
baissaoui -

0 réponse