vba

[katial]

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😱

 

[suistrop]

Re : vba

regarde par ici

Manipuler les chaînes de caractères en VB6 et VBA Excel - Club d'entraide des développeurs francophones

I-U. Découper une longue chaine de caractères sans couper les mots

 

[Guest]

Re : vba

bonjour katial,

voici une macro utilisant les fonctionalités de conversion d'excel (menu données/convertir) et adaptée après enregistrement par l'enregiteur de macro.

Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False

A bientôt

 

[katial]

Re : vba

merci a vous je vais essayer!

Une fois que j'ai mes mots dans differentes cases je voudrai une macro qui recopierai dans une autre cas tout les mot place devant un mot special:

je mexplique:
si jai
chien/chat/ maison/ballon
et dans une autre ligne j'ai
ballon/chat/maison/chien

j'aimerai que la macro recopie le mot place juste devant maison pour toute les lignes dans une case de chaque ligne

😕

Avez vous une idee?

 

[suistrop]

Re : vba

le mieux est que nous donne ton fichier c est plus simple a travailler dessus !

 

[katial]

Re : vba

Merci je t'envoie le fichier exemple avec les indications de ce que je veux faire!

 

[pierrejean]

Re : vba

bonjour a tous

Un essai (voir sheet2)

Mot cherché en colonne 17

 

[suistrop]

Re : vba

bien vu Pierre Jean

Sub cartman()

For i = 2 To 15
chaine = Cells(i, 1)
tableau = Split(chaine)
    For z = 1 To UBound(tableau)
        If tableau(z) Like "*S/S*" Then
            Cells(i, 2) = tableau(z - 1)
        End If
    Next z
Next i
End Sub

j avais fais ca ...

 

[katial]

Re : vba

Merci beaucoup de votre aide!!!!
🙂🙂🙂

 

[pierrejean]

Re : vba

Re

@ suistrop

split donne un tableau de base 0 c-a-d de 0 a Ubound

il me semble que tu devais perdre le dernier terme

 

[suistrop]

Re : vba

Re

@ suistrop

split donne un tableau de base 0 c-a-d de 0 a Ubound

il me semble que tu devais perdre le dernier terme

Ouai bien vu J-P !
ca je m y fais pas .... sous vba le tableur commence a 1 mais leur tableau commence a 0 🙄

 

[katial]

Re : vba

Bonjour tout lemonde,

hier vous m'avez bien aide cependant j'ai de nouveau un probleme.
je me suis apercu que le mot a recopier netait pas suffisant j'aimerai recopier les trois mots devant S/S.

Voir fichier ci dessus

merci par avence car je ne trouve pas la solution,
je ne suis pas du tout forte en vba

 

[pierrejean]

Re : vba

Re

vois si cela te convient

 

[katial]

Re : vba

Merci PierreJean,
ca fonctionne!!!
cette fois j'essaye d'ajouter un terme ou il y aurait par exemple S/Skatial
car dans mon fichier d'origine il y a parfois des mots accoles avant ou apres S/S.
j'ai essaye de rajouter dans la macro
If x(m) = "S/S," Or x(m) = "S/S" Or x(m) = "*S/S*" Then
Mais ca ne fonctionne pas ca ne detecte plus le mot S/S et donc ca ne recopie plus les mot devant.

 

[pierrejean]

Re : vba

Re

Remplacer par

 if x(m) Like "*S/S*"