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 · 25 Octobre 2021

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
...

VB:

    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 · 25 Octobre 2021

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 · 25 Octobre 2021

Bonjour,

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

ChTi160 · 26 Octobre 2021

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 · 26 Octobre 2021

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 · 26 Octobre 2021

Re
Ok
merci
Bonne journée
jean marie

ChTi160 · 26 Octobre 2021

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 · 27 Octobre 2021

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 · 27 Octobre 2021

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 · 28 Octobre 2021

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_ · 28 Octobre 2021

ChTi160 à dit:
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 · 28 Octobre 2021

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

M92_ · 28 Octobre 2021

ChTi160 à dit:
Bonsoir M92
J'utilise LICEcap (cest Gratuit)
Bonne Nuit
Jean marie

Merci encore et bonne soirée,

Cdlt,
M92

drumeiro · 29 Octobre 2021

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

Bonne journée

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

XLDnaute Nouveau

Pièces jointes

ChTi160

XLDnaute Barbatruc

drumeiro

XLDnaute Nouveau

ChTi160

XLDnaute Barbatruc

drumeiro

XLDnaute Nouveau

Pièces jointes

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

drumeiro

XLDnaute Nouveau

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

M92_

XLDnaute Junior

ChTi160

XLDnaute Barbatruc

M92_

XLDnaute Junior

drumeiro

XLDnaute Nouveau

Discussions similaires