Macro pour rechercher et copier valeurs

[btellier]

Bonjour à tous,
je suis une nouvelle fois confronté à mes limites en programmation VB.
mon souci est simple, j'utilise un code du type :

Sheets("Fichierclients").Range("A72").End(xlUp).Offset(1, 0) = TextBox5.Text

qui me permets d’incrémenter une base clients avec les valeurs saisies dans mes textboxs (exemple : nom, adresse...). J'ai des données complémentaires pour un même clients qui seront saisies dans un 2nd temps (quantités achetées par exemple), j'aimerai que ces données une fois saisies puissent venir se coller sur la bonne ligne de ma feuille, en face du nom du client concerné. La clé d'entrée sera donc le nom du client c'est à dire la valeur recherchée...

Merci beaucoup de l'aide que vous pourrez m'apporter...

Benoit.

 

[Banzai64]

Re : Macro pour rechercher et copier valeurs

bonjour

Sans fichier pas facile

Mais peut-être avec

Lg = Application.Match(Nom_Cherché,Zone_Recherche,Mode)

Tu trouveras la ligne correspondante au nom

 

[btellier]

Re : Macro pour rechercher et copier valeurs

Merci Banzai64 mais je ne comprends pas comment je peux appliquer ton bout de code, mon niveau frôlant le zéro absolu... peux tu m'éclairer davantage sur la démarche... Désolé/

 

[Pierrot93]

Re : Macro pour rechercher et copier valeurs

bonjour

Sans fichier pas facile

Mais peut-être avec

Lg = Application.Match(Nom_Cherché,Zone_Recherche,Mode)

Tu trouveras la ligne correspondante au nom

bonjour à tous,

sauf erreur, il me semble qu'Application.Match retournera le numéro d'ordre dans la zone et non un numéro de ligne... Perso j'utiliserais la méthode native dans vba, à savoir la méthode "find"; tu trouveras de nombreux exemples sur le forum...

bonne fin d'après midi
@+

 

[Banzai64]

Re : Macro pour rechercher et copier valeurs

Re

Sans fichier pas facile

Lg = Application.Match(TextBox5.Text,Sheets("Fichierclients").Range("A1:A[COLOR="Red"]"[/COLOR] & Sheets("Fichierclients").Range("A72").End(xlUp).row),0)

If Not IsError(Lg) then
 ' J'ai trouvé la ligne
 ' Traitement ajout information
 ' Etc ... 
Else
' Pas le Nom dans la base 
' Donc Nouveau Client
Sheets("Fichierclients").Range("A72").End(xlUp).Offset(1, 0) = TextBox5.Text
.
.
.
.
End If

Voili, voici, voilà, voiça


Bonjour Pierrot93
Bien sur mais souvent la position dans la base de donnée correspond à la ligne
Mais merci de ta remarque

 

[btellier]

Re : Macro pour rechercher et copier valeurs

Merci pour le coup de pouce...