Copier celulle antérieure
Résolu
Brandysve
Messages postés
59
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour 'Comment ça marche',
Je possède un modèle excel où j'encode, notamment, des dates de fin de leasing cependant il arrive souvent qu'en fonction des plaques, ce soit les mêmes dates.
Pour ne pas toujours les retaper ou faire "copier/coller" etc.. je voudrais qu'en appuyant sur une touche du clavier, ça copie le contenu de la cellule supérieure.
Est-ce possible en Vba?
Merci à l'avance pour votre aide
Brandysve
Je possède un modèle excel où j'encode, notamment, des dates de fin de leasing cependant il arrive souvent qu'en fonction des plaques, ce soit les mêmes dates.
Pour ne pas toujours les retaper ou faire "copier/coller" etc.. je voudrais qu'en appuyant sur une touche du clavier, ça copie le contenu de la cellule supérieure.
Est-ce possible en Vba?
Merci à l'avance pour votre aide
Brandysve
2 réponses
-
Bonjour,
Oui, tout (ou presque) est possible en VBA.
Un exemple de recopie de la cellule supérieure dans la cellule active (ce code se déclenche lors d'un double clic dans la cellule)
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
End Sub
Mise en oeuvre :
- Clic droit sur l'onglet de la feuille concernée
- choisir : visualiser le code
- copier-coller le code ci-dessus
- fermer visual basic editor
- tester -
J'avais juste besoin de ceci :
ActiveCell.Value = ActiveCell.Offset(-1,0).Value
Je met en résolu et encore merci !
Voici le code code complet si une personne cherche la même chose
Sub Under_copy()
'
' Under_copy Macro
' Copie la celulle du dessus
'
' Touche de raccourci du clavier: Ctrl+w
'
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value
End Sub
A bientot o/
