Help Boucle

[atot]

Bonjour

J'ai un petit souci pour automatisé ma macro
J'ai une cellule qui contient mes données que je souhaite separé.
Pour separer mon texte j'y arrive mais par contre je n'arrive pas faire une boucle pour le faire sur les 2000 lignes

Si quelqu'un me donner un coup de pouce

 

[jp14]

Re : Help Boucle

Bonjour

Ci dessous la procédure modifiée.

Private Sub elegage()
On Error Resume Next
Dim var As String
Dim cellule As Range
Dim nomfeuille1 As String
' pour boucler sur la colonne 1

 nomfeuille1 = "Feuil1"
With Sheets(nomfeuille1)
For Each cellule In .Range("a1:a" & .Cells(Columns(1).Cells.Count, 1).End(xlUp).Row)
    var = Right(cellule, Len(cellule) - 6)
    .Range("B" & cellule.Row) = var
Next cellule
End With

End Sub

A tester

JP

 

[CBernardT]

Re : Help Boucle

Bonjour atop et le forum,

Salut jp14

Tester avec cette macro, la boucle est un peu différente :

Sub elegage()
Dim Derligne As Integer, Var As String

With Sheets("Feuil1") ' Feuille de travail
Derligne = .Range("A65536").End(xlUp).Row ' Derlière ligne de la colonne A
For i = 1 To Derligne ' Boucle sur les numéros de ligne
Var = .Cells(i, 1) ' Définition de la variable Var
.Cells(i, 2) = Right(Var, Len(Var) - 6) ' Report du texte en colonne 2
Next i ' Ligne suivante
End With
End Sub

 

[atot]

Re : Help Boucle

Merci pour vos reponses qui me sont tres tres utile.

Bonne journée