Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Insérer un bouton dans le code

J

justine

Guest
Salut à tous!

voici le code que Hérvé m'adonné sur le forum:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
With Sheets("feuil2")
.Range("a" & .Range("a65000").End(xlUp).Row + 1) = Target.Value
End With
End If
End Sub

Ce code marche parfaitement bien, c'est parfait! Cependant, j'aimerais que l'action se réalise, non pas après avoir appuyer sur entrée lorsque on a entré la valeur dans la cellule, mais après avoir clické sur un bouton.

Que dois-je modifier dans le code?

Merci à tous

Justine
 
P

petchy

Guest
bonjour Justine

voila le code pour un bouton "CommandButton1"bien sur si il se nome comme ça,sinon change l'apelation.
Private Sub CommandButton1_Click()
If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
With Sheets("feuil2")
.Range("a" & .Range("a65000").End(xlUp).Row + 1) = Target.Value
End With
End If

@ plus
petchy
 
H

Hervé

Guest
re

Public Sub justine()
With Sheets("feuil2")
.Range("a" & .Range("a65000").End(xlUp).Row + 1) = Range("a1").Value
End With
End Sub

a collé dans l'objet feuille (clic gauche sur l'onglet, puis visualiser le code)

lui affecté un bouton (boite à outil formulaire).

Salut
Hervé
 

Discussions similaires

Réponses
32
Affichages
809
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…