Discussion :

[Patouillou]

Bonjour,
J'ai remarqué un petit problème dans mon classeur depuis quelque temps ,
Je dispose de deux feuille , la 1ère nommé RÉCAPITULATIF et la seconde appelée RAPPORT.
Mon soucis est que des fois , des valeurs de la feuilles 2 sont copié dans la même ligne, même colonne de la feuille 1 ...
Je n'arrive pas a identifier les problème, sachant qu'en plus , certaines valeurs sont des valeurs placée manuellement dans la feuille 2 , et d'autre son placée automatiquement avec un userform...
Voici un des codes qui je pense est un des motif de cela..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Private Sub CommandButton4_Click()
ThisWorkbook.Worksheets("RAPPORT").Range("G10").Value = Me.TextBox15.Text
ThisWorkbook.Worksheets("RAPPORT").Range("B9").Value = Me.TextBox5.Text
ThisWorkbook.Worksheets("RAPPORT").Range("G3").Value = Me.TextBox1.Text
ThisWorkbook.Worksheets("RAPPORT").Range("C14").Value = Me.ComboBox6.Text
ThisWorkbook.Worksheets("RAPPORT").Range("C15").Value = Me.TextBox7.Text
ThisWorkbook.Worksheets("RAPPORT").Range("C10").Value = Me.TextBox2.Text
ThisWorkbook.Worksheets("RAPPORT").Range("C16") = Me.TextBox17.Text
ThisWorkbook.Worksheets("RAPPORT").Range("D12").Value = Me.TextBox4
ThisWorkbook.Worksheets("RAPPORT").Range("D7").Value = Me.ComboBox3.Text
ThisWorkbook.Worksheets("RAPPORT").Range("G4").Value = Me.TextBox12.Text
ThisWorkbook.Worksheets("RAPPORT").Range("G5").Value = Me.TextBox13.Text
ThisWorkbook.Worksheets("RAPPORT").Range("A45").Value = Me.TextBox16.Text
ThisWorkbook.Worksheets("Données").Range("B43").Value = Me.TextBox16.Text
ThisWorkbook.Worksheets("RAPPORT").Range("H5").Value = Me.TextBox14.Text
 
 
 
 
For Each Ctrl In Me.Controls 'boucle sur tous les contrôles de l'userForm
    'si la propriété [Tag] du contrôle n'est pas vide, renvoie la valeur du contrôle CTRL
    'dans la cellule ligne LI colonne [Tag] (converti en entier) du contrôle, de l'onglet O
    If Ctrl.Tag <> "" Then O.Cells(LI, CInt(Ctrl.Tag)).Value = Ctrl.Value
Next Ctrl 'prochain contrôle de la boucle
 Sheets("RAPPORT").Select
Unload Me 'vide et ferme l'UserForm

Si nécessaire je peux vous fournir le code entier.
Merci de votre aide
Cordialement

[Thautheme]

Bonsoir Patouillou, bonsoir le forum,

Tu as deux parties de code qui semblent faire la même chose : les lignes 3 à 16 et la boucle des lignes 21 à 25.
La première renvoie la valeur des contrôles dans des cellules de l'onglet Rapport mais pas dans la même ligne.
La seconde renvoie la valeur des contrôles, qui ont une propriété [Tag] non vide, dans des cellules de la même ligne LI d'un onglet définit par la variable O.
Ne connaissant ni O, ni LI, ni les propriétés [Tag] des contrôles, ni ce que toi tu veux faire exactement, il est difficile de voir ce qui ne va pas !...

Je pense qu'une des parties est en trop. Tu as dû faire un copier/coller de la boucle (et oui, je la reconnais à ses commentaires cette petit boucle...) sans l'adapter à ton projet.