Discussion :

[NEC14]

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

[zyhack]

Bonjour

Tu aurais utilisé le pas à pas tu te serais apperçu que cette ligne selectionne la colonne Q

Code :

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

    ActiveCell.Offset(1, 0).Range("I1").Select

car la ligne précédente effectue un select dans la colonne I

Range("I1") effectue un deuxieme décalage, il faut que tu utilises

Code :

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

    ActiveCell.Offset(1, 0).Select

et par pitié arrêtez d'utilisiler les activate, select et activeCell à tour de bras, ça crée plus de problème qu'autre chose.

pour exemple simplement avec la partie de code que tu as mis ça donne

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim lngRow As Long
whith Sheets("Général") 'la feuille "Général" est activée
  If .Range("I4") = "" Then 'la cellule I4 est prise comme point de départ
      lngRow = 4 ' si elle est vide, elle est sélectionnée
  Else
      lngRow = .Range("I3").End(xlDown).Row + 1
  End If
  .Cells(lngRow, 9).Value = Me.T9.Value 'La valeur de T9 doit aller dans la cellule I8
  .Cells(lngRow, 10).Value = (Me.T10) 'La valeur de T10 dans la cellule J8
  .Cells(lngRow, 12).Value = (Me.T8) 'La valeur de T8 dans la cellule L8
End With

et il n'y a pas de select et autre

[NEC14]

Bonjour zyhack et merci pour ton aide.

Il est vrai que je n'ai pas souvent le réflexe du pas à pas. Je vais me faire violence pour la prochaine fois.

Sinon pour activer une cellule, je ne vois pas comment faire à part "Activate".
Je n'ai jamais suivi de cours, j'apprends sur le tas et je ne connais que cette fonction.

Si tu as une suggestion, cela m'intéresse.

Cordialement

Désolé ta suggestion est arrivée entre temps
Merci beaucoup
De plus cela a le mérite d'être plus clair.

[zyhack]

pour écrire dans une cellule tu n'as pas besoin de l'activer

regarde le code que je t'ai mis en exemple et travail un peu dessus pour comprendre