Excel macro bouton validation d'une cellule
Fermé
Avignon84
-
6 sept. 2008 à 17:32
Avignon84 Messages postés 5 Date d'inscription samedi 6 septembre 2008 Statut Membre Dernière intervention 9 septembre 2008 - 6 sept. 2008 à 19:56
Avignon84 Messages postés 5 Date d'inscription samedi 6 septembre 2008 Statut Membre Dernière intervention 9 septembre 2008 - 6 sept. 2008 à 19:56
A voir également:
- Excel macro bouton validation d'une cellule
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
2 réponses
Avignon84
Messages postés
5
Date d'inscription
samedi 6 septembre 2008
Statut
Membre
Dernière intervention
9 septembre 2008
2
6 sept. 2008 à 19:56
6 sept. 2008 à 19:56
Salut, et merci pour ta réactivitée.
en fait j'ai une cellule qui contient un code qui change grace un une barre de défilement.
J'aimerai copie ce code grace à un bouton de validation, puis choisir un autre code Qui se mette à la suite afin d'obtenir une liste de 40 codes.
Désolé pour le dérangement
en fait j'ai une cellule qui contient un code qui change grace un une barre de défilement.
J'aimerai copie ce code grace à un bouton de validation, puis choisir un autre code Qui se mette à la suite afin d'obtenir une liste de 40 codes.
Désolé pour le dérangement
Salut,
admettons que ton bouton s'appelle Button1.
Que ta cellule soit la cellule A1, et la suivante B1.
Que tu veuilles copier la cellule dans la cellule A2
Essaies ce code dans ta macro
Private Sub CommandButton1_Click()
If Range("A1").Value<>"" then
'--- Copie de la cellule
Range("A2").value=Range("A1").value
'--- Deplacement du contenu
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
RAnge("B1").Select
ActiveSheets.Paste
End Sub
admettons que ton bouton s'appelle Button1.
Que ta cellule soit la cellule A1, et la suivante B1.
Que tu veuilles copier la cellule dans la cellule A2
Essaies ce code dans ta macro
Private Sub CommandButton1_Click()
If Range("A1").Value<>"" then
'--- Copie de la cellule
Range("A2").value=Range("A1").value
'--- Deplacement du contenu
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
RAnge("B1").Select
ActiveSheets.Paste
End Sub
