Bonjour le forum,
J'ai un petit problème de syntaxe qui me pose des difficultés récurrentes.
J'ai essayé de le réparer, mais ma solution ne fonctionne que de manière aléatoire !
En fait, je souhaite que les données d'un userform soient copiées dans un tableau Excel sur une ligne précise.
Les cinq premières données doivent être collées dans les cellules T42 à X42, les cinq suivantes dans les cellules Y42 à AC42, puis AD42 à AH42 ...
Mon problème est que les données sont collées dans les bonnes colonnes, mais pas forcément sur la bonne ligne ! Pour une raison que je ne comprends pas (je ne maîtrise pas bien les macros), elles se trouvent en ligne 42, puis quand je réutilise la macro dans une autre ligne au-dessus ou en-dessous !
Je vous joins une partie de mon code.
Je pense comprendre qu'il y a un problème avec "With Row =" et/ou avec "(Trouve20.Row - 1,", mais je ne vois pas où ?
Si quelqu'un pouvait y regarder ?
Merci d'avance.
Cordialement.
J'ai un petit problème de syntaxe qui me pose des difficultés récurrentes.
J'ai essayé de le réparer, mais ma solution ne fonctionne que de manière aléatoire !
En fait, je souhaite que les données d'un userform soient copiées dans un tableau Excel sur une ligne précise.
Les cinq premières données doivent être collées dans les cellules T42 à X42, les cinq suivantes dans les cellules Y42 à AC42, puis AD42 à AH42 ...
Mon problème est que les données sont collées dans les bonnes colonnes, mais pas forcément sur la bonne ligne ! Pour une raison que je ne comprends pas (je ne maîtrise pas bien les macros), elles se trouvent en ligne 42, puis quand je réutilise la macro dans une autre ligne au-dessus ou en-dessous !
Je vous joins une partie de mon code.
Code:
Private Sub CommandButton1_Click()
Dim Infos1(5 To 9) As String
Dim Trouve20 As Range
Dim Colonne1 As Integer
Infos1(5) = TextBox3.Text
Infos1(6) = ComboBox6.Text & ":" & ComboBox7.Text
Infos1(7) = TextBox5.Text
Infos1(8) = ComboBox8.Text & ":" & ComboBox9.Text
Infos1(9) = ComboBox13.Text
With Row = 42
Set Trouve20 = Sheets("Accueil").Range("M:M").Find(Type_Even, lookat:=xlWhole)
For Colonne1 = 0 To 20
If Sheets("Accueil").Range("T42").Offset(Trouve20.Row - 1, Colonne1) = "" Then
Sheets("Accueil").Range("T42:X42").Offset(Trouve20.Row - 1, Colonne1) = Infos1: Exit For
End If
Next Colonne1
Je pense comprendre qu'il y a un problème avec "With Row =" et/ou avec "(Trouve20.Row - 1,", mais je ne vois pas où ?
Si quelqu'un pouvait y regarder ?
Merci d'avance.
Cordialement.