VBA - Plusieurs lignes pour un même # de dossier

Bonjour à tous,

Je suis nouvelle sur ce forum et je m'appelle Chantal.

Je suis plutôt très bonne en EXCEL, mais je débute tout juste à faire du VBA... Et je me suis lancée un défi énorme qui me prends la tête comme c'est pas possible donc... Si certains d'entres vous peuvent m'aider, j'apprécierai énormément c'est certain

Alors voilà, dans mon tableau excel, j'ai plusieurs entrées :

# de dossier, nom, ville, et # d'emplacement et adresse de l'emplacement.

Je vous joins le fichier, ce sera plus facile à comprendre.

Donc, pour chaque client, il est possible que certains possèdent plus d'un emplacement. Ainsi, pour les emplacement supplémentaires, les données doivent être entrées sur une nouvelle ligne (Comme dans l'exemple, France possède 2 emplacements).

Je suis capable de créer une ligne pour chaque nouvelle entrée pour les 3 première colonnes (A, B et C). Quand j,arrive à D, je galère parce que je ne sais pas comment coder pour la liste déroulante... ? Et je galère aussi pour les emplacements... Je veux qu'automatiquement, dans la page "Emplacement 1" de ma form, se load l'information de l'emplacement 1 (adresse) et dans la page "Emplacement 2) se load l'information de l'emplacement 2, mais qui se trouve sur une autre ligne et pas forcément sur la ligne suivante de l'emplacement 1...

Aussi, j'aimerais que quand j'entre un nouveau numéro de dossier et que j'entre une donnée autant dans emplacement 1 que dans emplacement 2, il crée automatiquement les 2 lignes dans le classeur excel pour les 2 emplacements... Et que si j'entre un numéro existant, par exemple le 1028, qu'il load les informations mais que si j'ajoute un 2e emplacement (il n'y en a pas actuellement pour ce dossier), qu'il me crée automatiquement une nouvelle ligne avec les infos du 2e emplacement.

Notez que, peu importe le nombre d'emplacement, le # de dossier, le nom et l'adresse 1 et la langue reste toujours les mêmes. Seules les informations d'adresse des emplacements changent.

Est-ce que quelqu'un peu m'aider?

Si vous avez besoin de plus d'info, n'hésitez pas! Gros merci d'avance

Bonjour,

J'ai l'impression que tu te compliques la vie ...

code à tester :

Sub Add()
Dim emptyRow As Long

emptyRow = Feuil1.Range("A65536").End(xlUp).Row + 1
If Me.TextBox1.Value <> "" Then
  For j = 1 To 3
      Cells(emptyRow, j).Value = Me.Controls("TextBox" & j).Value
  Next j
  Cells(i + 1, 4).Value = Me.ComboBox1.Value
  Cells(i + 1, 6).Value = Me.TextBox5.Value
End If

End Sub

Merci beaucoup James007!!

Bonjour,

Content que cela fonctionne

Merci pour tes remerciements...

James007, petite question...

dans la formule

For j = 2 To 3

UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j).Value

Next j

UserForm1.ComboBox1.Value = Cells(i + 1, 4).Value

J'assume que les textbox doivent être dans le même ordre que les cellules parce que cells1 = textbox1, par exemple.... C'est bien cela?

Donc, si j'ajoute des ComboBox ou autres entre mes Textbox, je dois changer manuellement le nom de mes textboxs pour qu'ils continuent de correspondre, c'est bien çà?

Si tout ce que j'ai écris ci-dessus est bon... Donc, si je change la formule pour :

For j = 2 to 20

UserForm1.Controls("TextBox" & j).Value = Cells(i + 1, j).Value

Next j

UserForm1.ComboBox1.Value = Cells(i + 1, 4).Value

Et que je n'ai pas de textbox5, par exemple, automatiquement il passera par dessus ou ça me fera une erreur?

Ou y a-t-il une meilleure façon de le faire? Peut-être en utilisant le "TAG" (Aucune idée à quoi ça sert le TAG, honnêtement...) ?

Merci encore

Chantal,

Tu sais qu'on dit en anglais... If you Ass U ME, it will make an Ass of U and Me ...

Mais, dans le cas précis, tu as Ultra raison ...

Pour te faciliter la vie, je te conseille de garder la synchronisation parfaite entre tes cellules et tes TextBoxes ... tu n'en retiras que des bénéfices ...

Hahaha!

Mais c'est bien ma chance... !! Si j'avais su AVANT, je n'aurais pas mis des textbox éparpillées n'importe comment... Quel enfer!

En français, on dit : Faut payer pour apprendre!... Et dans le cas précis, ça vient de me coûter quelques heures de prog. pour rien...

Merci de ta patience James007!! Je sens que j'aurais d'autres questions faciles pour toi (Et pour les autres bien sûr), mais bien casse-pieds (Pour ne pas dire un mot moins poli) pour moi... !!

Bonne journée,

Re,

Em même temps ... je te le promets ... le jeu en vaut la chandelle ...

Bon Courage ...