Problème exécution macro sur différentes feuilles
L
Bonjour,
J'ai une macro qui me permet de remplir un fichier à travers un userform où l'utilisateur saisit des infos. J'ai plusieurs feuilles et selon une info dans l'userform ma macro devrait s'exécuter sur telle ou telle feuille. Le problème est que cela marche une fois sur 5, parfais elle s'exécute sur la bonne feuille, parfois elle ne change pas de feuille et s'exécute sur la même que la précédente...auriez-vous une idée ?
Private Sub UserForm_Initialize()
ComboBox1.AddItem Range("X2")
ComboBox1.AddItem Range("X3")
ComboBox1.AddItem Range("X4")
ComboBox1.AddItem Range("X5")
ComboBox1.AddItem Range("X6")
ComboBox1.AddItem Range("X7")
End Sub
Private Sub CommandButton1_Click()
'différentes sheets pour chaque AM
If ComboBox1.Value = "x" Then
Sheets("x").Select
ElseIf ComboBox1.Value = "x" Then
Sheets("x").Select
ElseIf ComboBox1.Value = "x" Then
Sheets("x").Select
ElseIf ComboBox1.Value = "x" Then
Sheets("x").Select
ElseIf ComboBox1.Value = "x" Then
Sheets("x").Select
ElseIf ComboBox1.Value = "x" Then
Sheets("x").Select
End If
'saut de lignes à chaque iimportation de données
Dim intLine As Integer
intLine = Range("a65000").End(xlUp).Row + 1
Cells(intLine, 1) = TextBox6.Value
Cells(intLine, 2) = TextBox4.Value
Cells(intLine, 3) = TextBox5.Value
Cells(intLine, 4) = TextBox3.Value
Cells(intLine, 5) = TextBox1.Value
Cells(intLine, 6) = TextBox2.Value
Cells(intLine, 7) = TextBox6.Value
Cells(intLine, 9) = TextBox7.Value
Cells(intLine, 13) = TextBox8.Value
End SubMerci d'avance
a
Bonjour
on voie pas ton modèle de fichier
A+
Maurice
L
Bonjour,
Mon UserForm ? C'est normal il faudrait que je le reprenne en entier pour pouvoir vous l'envoyer, il contient des infos que je ne peux pas poster publiquement..je me disais qu'avec le codepeut-être auriez vous vu ce qui cloche..
Thk