Excel macro bouton validation d'une cellule
Avignon84
-
Avignon84 Messages postés 5 Statut Membre -
Avignon84 Messages postés 5 Statut Membre -
Bonjour tout le monde,
Je suis plus que débutant en vba.
je souhaite copie une cellule grace à un bouton de validation.
Dans un second temps si cette cellule n'est pas vide, j'aimerai qu'elle passe à la cellule au dessous.
Par avance merci
Avignon
Je suis plus que débutant en vba.
je souhaite copie une cellule grace à un bouton de validation.
Dans un second temps si cette cellule n'est pas vide, j'aimerai qu'elle passe à la cellule au dessous.
Par avance merci
Avignon
A voir également:
- Excel macro bouton validation d'une cellule
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Déplacer une colonne excel - Guide
- Excel cellule couleur si condition texte - Guide
2 réponses
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
