Set LaCelluleAGauche=LaCelluleActuelle.offset(0,-1)
Set LaCelluleADroite=LaCelluleActuelle.offset(0,1)
Set LaCelluleAGauche=LaCelluleActuelle(1,0)
Set LaCelluleADroite=LaCelluleActuelle(1,2)
Je sais pas faire
L'erreur vient d'une part d'un manque d'explications claires et précisesre
jai essayé
................
....................
............................
...............
et sa ne marche pas ? quelle est mon erreur SVP
Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 6
If Cells(1, i) = "" Then Cells(1, i) = Textbox1.Text: Exit For
Next
End Sub