Bonsoir à tous,

Je vous fourni ci-dessous le code lié à deux commandbutton.

Ce premier code fonctionne nickel. Automatiquement les emails et noms s'ajoutent les uns derrières les autres dans la Feuil1.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
 
Dim NewEmail As String
Dim NewName As String
 
NewRecipient = InputBox("Enter new email adress")
NewName = InputBox("Enter name of the recipient")
 
If NewRecipient = "" Then Exit Sub
 
   Range("A11").Select
 
   While ActiveCell.Value <> ""
 
        ActiveCell.Offset(1, 0).Select
 
   Wend
 
   ActiveCell.Value = NewRecipient
   ActiveCell.Offset(0, 1).Value = NewName
 
End Sub
Quant au code suivant il est sensé faire la même chose que le précédent si ce n'est que je veux que les données entrées s'ajoutent les unes à la suite des autres dans la Feuil2.

J'ai vérifié dans mon bouquin de VBA et sur le forum je ne comprends pas pourquoi cela ne marche pas. J'ai le message d'erreur suivant: "La méthode Select de la classe Range a échoué"

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub CommandButton2_Click()
 
Dim NewEmail2 As String
Dim NewName2 As String
 
NewRecipient2 = InputBox("Enter new email adress")
NewName2 = InputBox("Enter name of the recipient")
 
If NewRecipient2 = "" Then Exit Sub
 
Sheets("Feuil2").Select
 
Range("A11").Select    
 
   While ActiveCell.Value <> ""
 
        ActiveCell.Offset(1, 0).Select
 
   Wend
 
   ActiveCell.Value = NewRecipient2
   ActiveCell.Offset(0, 1).Value = NewName2
 
End Sub