VBA Recopier données formulaire selon valeur Textbox vers ligne correspondante

[Johan]

Bonjour à tous,

Mon titre est certainement très vague. Je m'explique : je souhaite,en recopiant dans une textbox d'un formulaire un numéro (cellule A2 du fichier joint) que toutes les autres valeurs de mes textbox viennent remplir certaines colonnes correspondantes de la même ligne (à savoir dans mon fichier joint G2 H2 et I2).

Le fait est que les données des colonnes B C D E F sont récupérées automatiquement d'un autre classeur selon une formule index/equiv tjs à partir du même numéro (je n'ai pas refait la formule dans mon fichier test pour simplifier la chose)

J'avais au préalable rentré le code suivant pour remplir la dernière ligne non-vide de mon tableau

Private Sub VALIDER_Click()

With Feuil1.ListObjects(1)

.ListRows.Add
.Range(.Range.Rows.Count, 7).Value = Action.Value
.Range(.Range.Rows.Count, 8).Value = DateAction.Value
.Range(.Range.Rows.Count, 9).Value = RespAction.Value

End With

Formulaire.Hide

End Sub


Mais je me retrouve désormais à remplir la dernière ligne (Ligne 4) non vide et non celle avec le numéro correspondant (Ligne 2)

Dans le fichier ci-joint j'ai donc rajouté une textbox "NumAction" pour la manip souhaitée mais c'est là ou je bloque. Il faut qu'en renseignant "A1" dans la première textbox du formulaire et en remplissant par exemple "test" dans les autres textbox, la validation vienne écrire "test" dans les colonnes G H & I de ma ligne 2...

Merci d'avance !!!

 

[Lone-wolf]

Re : VBA Recopier données formulaire selon valeur Textbox vers ligne correspondante

Bonsoir Johan,

Un essai comme ceci peut-être

With Feuil1.ListObjects(1)
        .ListRows.Add
        .Range(.Range.Rows.Count - 1, 1).Value = NumAction.Value
        .Range(.Range.Rows.Count - 1, 7).Value = Action.Value
        .Range(.Range.Rows.Count - 1, 8).Value = DateAction.Value
        .Range(.Range.Rows.Count - 1, 9).Value = RespAction.Value   
 End With

A+

 

[Johan]

Re : VBA Recopier données formulaire selon valeur Textbox vers ligne correspondante

Salut Lone-Wolf, merci pour ta réponse! C'est astucieux, tu as bien contourné la difficulté

Seul souci, c'est qu'en commençant sur un tableau vide (ce qui est le cas du fichier final sur lequel je travaille) ton code vient carrément remplacer ma ligne des en-têtes de colonnes! C'est pas embêtant vu que je peux écrire nimporte quoi sur ma premiere ligne et effacer une fois la machine en route...

Peut-être connais-tu un moyen de codifier le fait que la macro puisse démarrer à partir de la ligne 2 ?

 

[Lone-wolf]

Re : VBA Recopier données formulaire selon valeur Textbox vers ligne correspondante

Re Johan,

dans ce cas, ton premier code devrais jouer. Fait un essai dans un classeur vide.


A+