K
katial
Guest
Bonjour tout le monde,
J'ai besoin de votre aide,
Je dois realiser une macro qui recupererai tous les mots d'une cellule pour les separer et les placer chacun dans une cellule differente.
voici le debut de ma macro qui ne recopie que le premier em partant de droite.
comment puis faire pour les autres mots?
Private Sub CommandButton1_Click()
Dim i, k As Integer
Dim current, DernierNom As String
For i = 1 To 5732
k = 1
For k = 1 To 100
current = Left(Right(Range("C" & i), k), 1)
If current = " " Then
DernierNom = Right(Range("C" & i), k - 1)
GoTo Line12
End If
Next k
Line12: Range("D" & i) = DernierNom
Next i
End Sub
Merci par avance😱
J'ai besoin de votre aide,
Je dois realiser une macro qui recupererai tous les mots d'une cellule pour les separer et les placer chacun dans une cellule differente.
voici le debut de ma macro qui ne recopie que le premier em partant de droite.
comment puis faire pour les autres mots?
Private Sub CommandButton1_Click()
Dim i, k As Integer
Dim current, DernierNom As String
For i = 1 To 5732
k = 1
For k = 1 To 100
current = Left(Right(Range("C" & i), k), 1)
If current = " " Then
DernierNom = Right(Range("C" & i), k - 1)
GoTo Line12
End If
Next k
Line12: Range("D" & i) = DernierNom
Next i
End Sub
Merci par avance😱