XL 2013 Mise en place d'une boucle pour copier des données dans une case différentes en fonction de la valeur d'une combobox

[drumeiro]

Bonjour à tous,

j'aimerais réaliser une boucle pour copier coller les données d'une textbox dans une case différentes en fonction de la valeur d'une combobox

Je pense qu'il y a moyen de créer une boucle pour faciliter l'écriture du code. En effet, là j'ai fait pour seulement 2 combobox alors que j'en ai en tout 27 (combobox 2-->27) pour lesquelles je doit faire la même chose.

Combobox2 --> Textbox3 --> case D6 à L6
Combobox3 --> Textbox4 --> case D6 à L6
Combobox4 --> Textbox5 --> case D6 à L6
Combobox5 --> Textbox6 --> case M6 à U6
Combobox6 --> Textbox7 --> case M6 à U6
Combobox7 --> Textbox8 --> case M6 à U6
Combobox8 --> Textbox9 --> case V6 à AD6
Combobox9 --> Textbox10 --> case V6 à AD6
Combobox10 --> Textbox11 --> case V6 à AD6
...

    If ComboBox2.Value = "Teigne" Then
       copier.Range("D6").Value = TextBox3.Value
       ElseIf ComboBox2.Value = "Mouche" Then
       copier.Range("E6").Value = TextBox3.Value
       ElseIf ComboBox2.Value = "Moucheron" Then
       copier.Range("F6").Value = TextBox3.Value
       ElseIf ComboBox2.Value = "Guêpes" Then
       copier.Range("G6").Value = TextBox3.Value
       ElseIf ComboBox2.Value = "Tribolium" Then
       copier.Range("H6").Value = TextBox3.Value
       ElseIf ComboBox2.Value = "Mites" Then
       copier.Range("I6").Value = TextBox3.Value
       ElseIf ComboBox2.Value = "Moustiques" Then
       copier.Range("J6").Value = TextBox3.Value
       ElseIf ComboBox2.Value = "Punaises" Then
       copier.Range("K6").Value = TextBox3.Value
       ElseIf ComboBox2.Value = "Autres" Then
       copier.Range("L6").Value = TextBox3.Value
        End If
        
        If ComboBox3.Value = "Teigne" Then
       copier.Range("D6").Value = TextBox4.Value
       ElseIf ComboBox3.Value = "Mouche" Then
       copier.Range("E6").Value = TextBox4.Value
       ElseIf ComboBox3.Value = "Moucheron" Then
       copier.Range("F6").Value = TextBox4.Value
       ElseIf ComboBox3.Value = "Guêpes" Then
       copier.Range("G6").Value = TextBox4.Value
       ElseIf ComboBox3.Value = "Tribolium" Then
       copier.Range("H6").Value = TextBox4.Value
       ElseIf ComboBox3.Value = "Mites" Then
       copier.Range("I6").Value = TextBox4.Value
       ElseIf ComboBox3.Value = "Moustiques" Then
       copier.Range("J6").Value = TextBox4.Value
       ElseIf ComboBox3.Value = "Punaises" Then
       copier.Range("K6").Value = TextBox4.Value
       ElseIf ComboBox3.Value = "Autres" Then
       copier.Range("L6").Value = TextBox4.Value
        End If

L'ensemble des données rentrées dans le classeur programme moulin se collent dans le classeur Données gestion moulin

Je vous remercie pour votre aide.

 

[ChTi160]

Bonjour drumeiro
Pas de fichier !
Pas de réponse , donc tu sais ce qu'il te reste a faire
Bonne fin de Journée
jean marie

 

[drumeiro]

Bonjour,

les fichiers ont été insérés dans le premier poste

 

[ChTi160]

Bonjour ,
Bonjour le Fil ,le Forum

Combien de relevés par Jour ?
j'ai constaté que dans un des fichiers, tu as "Chaudière" qui apparait et pas dans L'autre Fichier.

Bonne journée
Jean marie

 

[drumeiro]

Bonjour,

Il n'y aura qu'un seul enregistrement par semaine.

En effet j'ai oublié d'insérer les colonnes pour le contrôle de la chaudière

 

[ChTi160]

Re
Ok
merci
Bonne journée
jean marie

 

[ChTi160]

Re

Pour imager ce à quoi je travaille.
J'ai modifié la présentation du Userform !
J'ai aussi modifié la méthode, il ne reste que 6 Controls que l'on remplit après avoir fait les choix !
À voir donc si ça pourrait convenir
Jean marie

 

[drumeiro]

Bonjour Jean Marie,

je te remercie du temps accordé.
Ce n'est pas ce que j'avais initialement imaginé mais je pense que ça doit pouvoir parfaitement convenir comme manière de faire.

 

[ChTi160]

Bonjour,
Je n'ai pas trouvé ,mais je regarderai encore , comment faire a partir de ta configuration.
Depuis mon téléphone.
Bonne journée
Jean marie

 

[ChTi160]

Bonsoir drumeiro
un dossier dans lequel figurent les deux fichiers , Il faut qu'il soient dans le Même dossier !
je n'ai pas avancé !
à voir .
tiens nous au courant
Jean marie

 

[M92_]

Re

Pour imager ce à quoi je travaille.
J'ai modifié la présentation du Userform !
J'ai aussi modifié la méthode, il ne reste que 6 Controls que l'on remplit après avoir fait les choix !
À voir donc si ça pourrait convenir
Jean marie

Bonsoir @ChTi160,

Si vous permettrez, puis-je savoir comment vous faites pour produire des images .gif ?

Merci beaucoup !

Cdlt,
M92

 

[ChTi160]

Bonsoir M92
J'utilise LICEcap (c'est Gratuit)
Bonne Nuit
Jean marie

 

[M92_]

Bonsoir M92
J'utilise LICEcap (cest Gratuit)
Bonne Nuit
Jean marie

Merci encore et bonne soirée,

Cdlt,
M92

 

[drumeiro]

Merci beaucoup pour le temps accorder et le travail effectué.
Je testerai cette solution.

Bonne journée