Discussion :

[Vincent32]

Bonjour à tous,

Merci d'avance de l'aide que vous voudrez bien m'apporter. Mon niveau en VBA est proche du 0.

Voici la formule que je souhaiterais intégrer dans mon code VBA toutefois ça ne fonctionne pas pourquoi ?

2 essais :

Le premier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ABC.FormulaLocal = "=GAUCHE(D2;CHERCHE(" "; D2; 1) - 1)"
.Cells(DerL, 8) = ABC.Text

Le second :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Cells(DerL, 8) = Left(Auteurs.Text, Search(" ", Auteurs.Text, 1) - 1)

Mais la formule ne fonctionne pas à cause de Search j'ai essayé de remplacer par find mais ça ne fonctionne pas non plus pourquoi ?

Auriez vous des solutions à me soumettre.

Merci d'avance

Bonne soirée

Vincent

[mercatog]

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim ABC As String
 
ABC = "=GAUCHE(D2;CHERCHE("" ""; D2; 1) - 1)"
Cells(1, 8).FormulaLocal = ABC

[Vincent32]

Bonjour,

Merci pour cette aide, cependant la solution que vous me proposez ne fonctionne pas, en effet cela m'indique dans la cellule de destination :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=GAUCHE(Auteurs.Text;CHERCHE("" ""; Auteurs.Text; 1) - 1)

à noter que j'ai essayé de modifier ma valeur source (alias Auteurs.Text) par une cellule bien déterminée (en l'occurence E2).

Est ce que le problème ne viendrait pas soit de la déclaration de la variable :
string?

soit de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(DerL, 8).FormulaLocal = ABC

Ne faut il pas ajouter ABC.Text à la fin ?

Merci d'avance de votre aide, bonne journée

Cordialement

Vincent

[mercatog]

C'est quoi Auteurs, ABC...?

[Vincent32]

Bonjour,

Il s'agit en fait du nom de variables (entre autres de données saisies par l'utilisateur dans des textbox).

Le but de la manipulation est de récupérer le premier nom d'une liste exemple :

Dans la textbox nommée "Auteurs" l'utilisateur saisi la liste des auteurs :
Babar ; Mickey ;...

Et je souhaite récupérer le premier nom c'est à dire dans notre cas : Babar

J'espère avoir été le plus explicite possible

Cordialement

Vincent

[mercatog]

Tes auteurs sont séparés par un point-virgule?

[Vincent32]

Bonjour,

En fait mes auteurs seront entrés dans la textbox de la manière suivante :

Auteurs : Einstein A. ; Volta A. ; Newton I. ; Ampère AM.


Et je souhaite récupérer : Einstein (à noter que "Auteurs : " correspond au label devant ma textbox (et cette même textbox a pour nom "Auteurs").

Le but étant de récupérer dans une cellule (dernière ligne, colonne définie) l'emsemble des auteurs indiqués dans la textbox (de manière très classique) et sur la même ligne dans une autre colonne le nom de l'auteur principal.

Le raisonnement que j'ai eu a été : extraire la chaine de caractère jusqu'au premier espace.

Cordialement,

Vincent

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(derlig, 8).value=split(Auteurs.text, " ")(0)

[Vincent32]

Bonsoir,

Merci beaucoup pour cette aide, ta technique fonctionne, pourrais tu cependant m'expliquer pourquoi le .Value est nécessaire et pourquoi (0) à la fin ?

Encore merci

Cordialement

Vincent

PS comment inséré "RESOLU" dans l'intitulé du message ?

[mercatog]

F1 sur split

on peut l'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim tablo
tablo=split(Auteurs.txt, " ")
cells(DerLig,8)=tblo(0)

split(TEXTE, SEPARATEUR)
split retourne un tableau de chaines qui sont séparés dans le texte original TEXTE par le séparateur SEPARATEUR
Le Value, c'est question d'habitude

[Vincent32]

Ok,

Merci beaucoup

Bonne journée