Le bouton qui fait glisser les notes

[zozoprod]

Bonjour à tous,

Je vais être très concret 🙂
Imaginez un fichier Excel avec 2 feuilles (feuille 1 et feuille 2) avec:
- Dans la case A1 de la feuille 1, une adresse mail (que l'on rentre manuellement)
- Dans la case A2 de la feuille 2, une note (sur 20) que l'on rentre manuellement
- Un bouton, qui, lorsque l'on clique dessus transfère le mail de la case A1/feuille 1 dans la case A1/feuille 2 et la note de la case A2/feuille 1 dans la case B1/feuille2

Le but est que sur la feuille 2, il se créer une liste de mail avec la note associée.

Le principe est très simple, j'espère avoir été clair 🙂

Merci d'avance pour votre aide !

 

[Robert]

Re : Le bouton qui fait glisser les notes

Bonsoir Zozoprod et bienvenu, bonsoir le forum,

Essaie avec ce code à affecter au bouton :

Sub Macro1()
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

With Sheets("Feuil2") 'prend en compte l'onglet "Feuil2"
    'définit la cellule de destination DEST (A1 si A1 est vide, sinon la première ligne vide de la colonne 1 (=A) de l'onglet "Feuil2")
    Set DEST = IIf(.Range("A1") = "", .Range("A1"), .Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0))
End With 'fin de la prise en compte de l'ontglet "Feuil2"
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    .Range("A1").Copy DEST 'copie la cellule A1 dans DEST
    .Range("A2").Copy DEST.Offset(0, 1) 'copie la cellulee A2 dans DEST décalée d'une colonne à droite
End With 'fin de la prise en compte de l'ontglet "Feuil1"
End Sub

 

[zozoprod]

Re : Le bouton qui fait glisser les notes

Bonsoir et merci Robert,

Il me suffit de faire un c/c ou ce sont des instruction que vous me donnez dans le code?

Merci

 

[Robert]

Re : Le bouton qui fait glisser les notes

Bonsoir Zozoprof, bonsoir le forum,

Il faut Copier/Coller le code dans un module standard (Module1 par exemple). Puis, si le bouton est un objet dessin (Shape) ou un CommandButton issu des Contrôles de formulaire, faire un clic du bouton droit dessus et lui affecter la macro Macro1. Si c'est un CommandButton issu des Contrôles ActiveX, double-cliquer dessus et entre les lignes proposées :

Private Sub CommandButton1_Click()

End Sub

écrire :

Module1.Macro1

ce qui donnera :

Private Sub CommandButton1_Click()
Module1.Macro1
End Sub