Bonjour à tous,
Dans le code suivant et après validation par un clic sur un bouton dans un formulaire, les données saisies dans les TextBoxs T8, T9 et T10 sont censées être envoyée dans la colonne I pour T9, J pour T10 et L pour T8.
Hors lorsque je valide, T9 se retrouve en colonne Q, T10 en R et T8 en T.
J'ai lu et relu mon code, comparé avec un autre déjà saisi ailleurs, mais je ne comprends pas où ça coinçe.
Pouvez-vous m'aider à comprendre s'il vous plait ?
Merci à tous
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Sheets("Général").Activate 'la feuille "Général" est activée If Range("I4") = "" Then 'la cellule I4 est prise comme point de départ Range("I4").Select ' si elle est vide, elle est sélectionnée Else Range("I3").End(xlDown).Select ActiveCell.Offset(1, 0).Range("I1").Select ' la saisie se fait à partir de de I1 End If ActiveCell.Value = Me.T9.Value 'La valeur de T9 doit aller dans la cellule I8 ActiveCell.Offset(0, 1).Value = (Me.T10) 'La valeur de T10 dans la cellule J8 ActiveCell.Offset(0, 3).Value = (Me.T8) 'La valeur de T8 dans la cellule L8
Partager