Discussion :

[RicardoBxl]

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

[helas]

Bonjour
et en precisant ?

Code :

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

1
2
 
Sheets("Feuil2").Range("A11").Select

[mercatog]

Evite les Select et directement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton2_Click()
Dim NewLig As Long
Dim NewEmail As String, NewName As String
 
NewRecipient = InputBox("Enter new email adress")
NewName = InputBox("Enter name of the recipient")
With Sheets("Feuil2")
   If Trim(NewRecipient) <> "" Then
      NewLig = .Cells(.Rows.Count).End(xlUp).Row + 1
      .Range("A" & NewLig).Value = NewRecipient
      .Range("B" & NewLig).Value = NewName
   End If
End With
End Sub

@helas
essaies d'exécuter cette ligne à partir de Feuil1

Code :

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

Sheets("Feuil2").Range("A11").Select

[zazaraignée]

Salut

Si "All" est le nom d'une plage nommée sur la Feuil1, je doute que ça marche sur la Feuil2.

Si le but est de sélectionner toute la feuille, il faut

Code :

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

Feuil2.SelectAll

Ceci dit, il n'est pas utile de sélectionner des cellules pour modifier le contenu. mercatog a donné un excellent exemple de code.

[mercatog]

de première vue, All et A11 (Lire A onze)
le problème est plutôt du côté de sélectionner une cellule d'une feuille non active.
Si c'est manuellement est impossible, alors on doute qu'on puisse par macro.

Code :

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

Feuil2.SelectAll

[zazaraignée]

J'ai la vue qui baisse