Bonjour,

J'ai crée un UserForm avec deux bouton OUIet NON et voici le code que j'ai tapé:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub CommandButton1_Click()
Sheets("Feuil3").Select
Range("A1").End(xlDown).Offset(1, 0).Select
'En fait, j'aimerais que la réponse s'affiche dans la dernière cellule vide de la colonne A
Selection.Value = "Oui"
UserForm2.Hide
UserForm3.Show
End Sub

Mais ça beug à la ligne: Range("A1").End(xlDown).Offset(1, 0).Select
Pourtant j'ai déjà utilisé cette ligne de code dans des procédures et ça marchait très bien