Coller texte dans une cellule a gauche du text déjà présent VBA ?

mapomme

XLDnaute Barbatruc

Supporter XLD

• 24 Juin 2016

• #2

Re : Coller texte dans une cellule a gauche du text déjà présent VBA ?

Bonjour sebjedi38

Essayer (C1 étant la cellule de destination) :

Code:

retour = Mid$(Resultat1, n1, n2 - n1 + 1)
Range("c1") = retour & " " & Range("c1")

edit : Bonjour gilbert_RGI

 

Dernière édition: 24 Juin 2016

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 24 Juin 2016

• #3

Re : Coller texte dans une cellule a gauche du text déjà présent VBA ?

Bonjour,

comme ceci

VB:

Sub test()
    Resultat1 = Range("a1").Value
    n1 = InStr(Resultat1, "<")    'position de >
    n2 = InStr(Resultat1, ">")    'position du >
    retour = Mid$(Resultat1, (n1), (n2 - (n1)) + 1)    'recupération du txt dans retour
    MsgBox retour
    Range("a4") = retour & " " & Range("a4")
End Sub

à la bourre hello, mapomme

sebjedi38 à dit:

Bonjour,

Dans une cellule je récupère un chaîne de caractère qui se trouve dans "retour" :

n1 = InStr(Resultat1, "<") 'position de >
n2 = InStr(Resultat1, ">") 'position du >
retour = Mid$(Resultat1, n1, n2) 'recupération du txt dans retour

Exemple dans "retour" j'ai <TOTO>

Je voudrais copier <TOTO> dans une autre cellule qui contient un texte, à gauche de ce texte :
La cellule contient "coucou"
en résultat de voudrais : <TOTO> coucou

Si vous avez le code en vba pour ma macro 🙂 cela serait cool 🙂

Séb

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

S

sebjedi38

XLDnaute Nouveau

• 24 Juin 2016

• #4

Re : Coller texte dans une cellule a gauche du text déjà présent VBA ?

Bonjour,

Super la ligne de commande :
Range("c1") = retour & " " & Range("c1")

Fonctionne parfaitement bien.

Et dernière question, si je veux faire la même opération sur les cellules suivantes ? d1, e1 et f1 ?

Comment cela se traduit en vba ?

Encore merci pour l'aide.

Séb

 

Vote positif 0 Vote négatif

S

sebjedi38

XLDnaute Nouveau

• 24 Juin 2016

• #5

Re : Coller texte dans une cellule a gauche du text déjà présent VBA ?

Salut,

j'ai tout simplement fait une petite boucle 🙂 et cela marche 🙂

n1 = InStr(Resultat1, "<") 'position de >
n2 = InStr(Resultat1, ">") 'position du >
retour = Mid$(Resultat1, n1, n2) 'recupération du txt dans retour

For j = i - 1 To 16

Cells(i, j).Activate 'active la cellule destination
Adresse = ActiveCell.Address 'récupération adresse cellule
Range(Adresse) = retour & " " & Range(Adresse) 'copie dans la cellule

Next


Thanks les vbaistes 🙂

 

Vote positif 0 Vote négatif

S

sebjedi38

XLDnaute Nouveau

• 24 Juin 2016

• #6

Re : Coller texte dans une cellule a gauche du text déjà présent VBA ?

Re bonjour,

Autre question mais dans le même style !

Bonjour,

Dans une cellule je récupère un chaîne de caractère qui se trouve dans "retour" :

n1 = InStr(Resultat1, "<") 'position de >
n2 = InStr(Resultat1, ">") 'position du >
retour = Mid$(Resultat1, n1, n2) 'recupération du txt dans retour

Exemple dans "retour" j'ai <TOTO>

Je voudrais copier <TOTO> dans une autre cellule qui contient un texte, mais a droite de ce dernier :
La cellule contient "coucou"
en résultat de voudrais : coucou <TOTO>


Séb

 

Vote positif 0 Vote négatif

S

sebjedi38

XLDnaute Nouveau

• 24 Juin 2016

• #7

Re : Coller texte dans une cellule a gauche du text déjà présent VBA ?

Re bonjour,

Autre question mais dans le même style !
Mais cette fois a droite du texte !

Dans une cellule je récupère un chaîne de caractère qui se trouve dans "retour" :

n1 = InStr(Resultat1, "<") 'position de >
n2 = InStr(Resultat1, ">") 'position du >
retour = Mid$(Resultat1, n1, n2) 'recupération du txt dans retour

Exemple dans "retour" j'ai <TOTO>

Je voudrais copier <TOTO> dans une autre cellule qui contient un texte, mais a droite de ce dernier :
La cellule contient "coucou"
en résultat de voudrais : coucou <TOTO>


Séb

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 24 Juin 2016

• #8

Re : Coller texte dans une cellule a gauche du text déjà présent VBA ?

dans la ligne suivante

Range("c1") = retour & " " & Range("c1")

retour est à gauche du contenu de c1

pour l'avoir à droite

Range("c1") = Range("c1") & " " & retour

 

Vote positif 0 Vote négatif

S

sebjedi38

XLDnaute Nouveau

• 24 Juin 2016

• #9

Re : Coller texte dans une cellule a gauche du text déjà présent VBA ?

Cool cela marche top, merci 🙂

 

Vote positif 0 Vote négatif