Autres BOUTONS ET BASE DE DONNEES

LUYGYS

XLDnaute Occasionnel
BONJOUR COMMENT PEUT ON CREER UNE SERIE DE BOUTONS SUR EXCEL QUI UNE FOIS APPUYEE DESSUS ECRIRAI SUR UNE FEUILLE EXCEL AUTOMATIQUEMENT LA DATE L HEURE ET LE NOM DU BOUTON.. BOUTONS NOMS EXEMPLE ( POIRE , FRAISE, POMME, BANANE ...ETC.. )
TOUTES LES IDEES ET EXEMPLES BIEN VENUS ..
LUYGYS
 

Staple1600

XLDnaute Barbatruc
Re

La macro modifiée pour insérer les valeurs vers le bas
VB:
Private Sub CommandButton1_Click()
Dim Col&
Col = CommandButton1.TopLeftCell.Offset(, -2).Column '
'Ne fonctionne que si le bouton est en colonne C
'le -2 ramène en colonne A
Cells(Rows.Count, Col).End(3)(2).Resize(, 2) = Array(Now, CommandButton1.Caption)
End Sub

PS: Il y a de nombreux tutoriels video qui montrent comment insérer un bouton
Sans oublier le site support de Microsoft avec de nombreux exemples.
Bref, il suffit d'avoir un peu de temps, de bonnes lunettes, G..gle translate le cas échéant, et en avant vers le monde merveilleux d'Excel et de VBA ;)
 

LUYGYS

XLDnaute Occasionnel
Re

La macro modifiée pour insérer les valeurs vers le bas
VB:
Private Sub CommandButton1_Click()
Dim Col&
Col = CommandButton1.TopLeftCell.Offset(, -2).Column '
'Ne fonctionne que si le bouton est en colonne C
'le -2 ramène en colonne A
Cells(Rows.Count, Col).End(3)(2).Resize(, 2) = Array(Now, CommandButton1.Caption)
End Sub

PS: Il y a de nombreux tutoriels video qui montrent comment insérer un bouton
Sans oublier le site support de Microsoft avec de nombreux exemples.
Bref, il suffit d'avoir un peu de temps, de bonnes lunettes, G..gle translate le cas échéant, et en avant vers le monde merveilleux d'Excel et de VBA ;)


Rebonjour

ca marche votre macro 1) et segond macro marche a merveille
par contre j ai coller un autre bouton et ca ne fait rien du tout !

vous savez pourquoi..?

cordialement

luygys
 

Pièces jointes

  • FRUITS CONTROL TEST 1.xlsx
    13.1 KB · Affichages: 8

Staple1600

XLDnaute Barbatruc
Re

Cela est indiqué dans les commentaires de la macro (en vert)
Dans l'exemple, j'ai inséré le bouton dans une cellule de colonne C
(Ensuite le code fait en sorte d'inscrire les données en colonne A et B)
Et je me sers pour cela de la propriété TopLeftCell qui identifie la cellule
Un autre exemple en guise d'illustration
(le bouton doit toujours être en colonne C)
VB:
Private Sub CommandButton1_Click()
'Différents exemples pour illustrer ce qui se passe quand on clique
MsgBox CommandButton1.TopLeftCell.Address(0, 0) 'cellule liée au bouton
MsgBox CommandButton1.TopLeftCell.Offset(, -1).Address(0, 0)
MsgBox CommandButton1.TopLeftCell.Offset(, -2).Address(0, 0)
MsgBox CommandButton1.TopLeftCell.Offset(, -2).Resize(, 2).Address(0, 0)
CommandButton1.TopLeftCell.Offset(, -2).Resize(, 2) = Array(Application.Name, Application.UserName)
End Sub
 

LUYGYS

XLDnaute Occasionnel
BONJOUR
SERAIT POSSIBLE DE RAJOUTER UN 3 FEUILLE QUI COMPTERAI LE NOMBRE DE CHAQUE FRUITS CLICKE
ET UN ESPACE ENTRE CHAQUE COLONNE HORIZONTAL COMME C EST LE CAS VERTICALMENT DANS LA FEUILLE 2 RESULTAT
MERCI POUR DES IDEES..LUYGYS
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, LUYGYS

LUYGYS
[Juste pour infos]
Ecrire en majuscules sur un forum, c'est comme si on criait son message
C'est donc trés mal perçu et absolument à éviter
C'est sans doute pour cela, que peu de monde te réponds
[/Juste pour infos]

Edition: Bonjour Jacky67
 
Dernière édition:

Jacky67

XLDnaute Barbatruc
COMMENT AFFICHER LE NOMBRE DE FRUITS DANS LA FEUILLE 3 STATS
MERCI POUR DES IDEES.
LUYGYS
Re..
Sans crier... :mad:
1-Avant de vouloir faire autre chose, il faudra que les boutons qui ont été ajoutés donne le bon résultat.
La marche à suivre est donnée dans le classeur que j'ai posté.
2-Mettre des lignes intermédiaires vides, n'est pas une bonne idée.

**Hello JM
 
Dernière édition:

LUYGYS

XLDnaute Occasionnel
Re..
Sans crier... :mad:
1-Avant de vouloir faire autre chose, il faudra que les boutons qui ont été ajoutés donne le bon résultat.
La marche à suivre est donnée dans le classeur que j'ai posté.
2-Mettre des lignes intermédiaires vides, n'est pas une bonne idée.

**Hello JM
Bonjour
Merci pour les conseils les lignes intermediaires vides .... c' est une idée pour l' impression avoir un coup plus beau !
J'ai trouve comment faire.
Par contre je ne sai pas comment faire en sort que dan s la feuille STATS le nombre de click en chaque fruits soit comptabilise.
je envoi le fichier a nouveau modifie.
Des idees sont bien venus.

LUYGYS
 

Pièces jointes

  • FRUITS NEXT 2 .xlsm
    209.1 KB · Affichages: 6

Discussions similaires

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla