copie avec touche CTRL-D

Ben, tu fais une macro simple. Exemple :
Sub CopierMesDonnees()
With Activecell
.formula=WorkSheets("Feuille D'insp.").range
("H1").Value
.Offset(0,1).formula=WorkSheets("Feuille
D'insp.").range("J2").Value
.Offset(1,0).Select
End Sub

Ensuite, une fois la macro créée, tu vas Dans
Outils/Macros/Macros (depuis Excel)
Tu fais un clic sur ta macro, puis un clic sur options, et
tu affectes le raccourcis Ctrl+D à ta macro.
Et voilà !

Cordialement
Maxence HUBICHE
nospam_mhubiche@club-internet.fr (retirer nospam_)
Développeur/Formateur indépendant

-----Message d'origine-----
Bonjour
Je voudrait avec la touche racourci CTRL-D copier une a
coté de l'autre les

valeur de la cellule
['Feuille D''insp.'!h1] et celle de ['Feuille D''insp.'!
j2]

a l'endroit ou est mon curseur mais seulement ci les
cellule sont vide.

et descendre de une cellu près pour la prochain étape.

Merci


.

Sub zzz()
With ActiveCell
If .Item(1, 2) = "" And .Item(1, 3) = "" Then
.Item(1, 2) = ['Feuille D"insp.'!H1]
.Item(1, 3) = ['Feuille D"insp.'!J2]
.Offset(1, 0).Select
End If
End With
End Sub

Pour le raccourci clavier, voir réponse au-dessus

PS : tu devrais éviter les espaces et les signes cabalistiques dans les noms de
feuilles :
Possibilité de difficultés (inutiles) ultérieures !

AV

Gros merci
je corrige mes titre de feuille merci du conseille

"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de news:
#tjy8FIvDHA.2248@TK2MSFTNGP09.phx.gbl...

Sub zzz()
With ActiveCell
If .Item(1, 2) = "" And .Item(1, 3) = "" Then
.Item(1, 2) = ['Feuille D"insp.'!H1]
.Item(1, 3) = ['Feuille D"insp.'!J2]
.Offset(1, 0).Select
End If
End With
End Sub

Pour le raccourci clavier, voir réponse au-dessus

PS : tu devrais éviter les espaces et les signes cabalistiques dans les
noms de

feuilles :
Possibilité de difficultés (inutiles) ultérieures !

AV