Microsoft 365 Copier à tour de rôle les éléments d'une liste vers une même cellule

flint125

XLDnaute Nouveau
Bonjour,

j'ai une liste de données qui commence en J2 et qui peut s'extentionner jusqu'à J25 et même des fois jusqu'à J100, donc variable. J'ai une mise en forme dans le même onglet qui dépend de la valeur de la cellule "F2". J'aimerais avoir une macro qui:

1- copie J2 vers F2 et se repositionne en J3 (ne fait rien jusqu'à ce que j'appuie une 2e fois sur le bouton)
2 - copie J3 vers F2 et se repositionne en J4 (ne fait rien jusqu'à ce que j'appuie une 3e fois sur le bouton)
3 - copie J4 vers F2 et se repositionne en J5 (ne fait rien jusqu'à ce que j'appuie une 4e fois sur le bouton)
etc. jusqu'au dernier élément

Quelqu'un peut m'aider ?
 
Solution
OK CAS RÉSOLU VOICI LE CODE, J'AI REUSSI EN 2 MACROS

Sub Macron()
'Se déplacer de 1 ligne vers le bas
ActiveCell.Offset(1, 0).Select

End Sub

Sub Macron3()
'Revenir à la cellule d'origine après le copier-coller
Set ici = ActiveCell

ici.Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ici.Select


End Sub

flint125

XLDnaute Nouveau
OK CAS RÉSOLU VOICI LE CODE, J'AI REUSSI EN 2 MACROS

Sub Macron()
'Se déplacer de 1 ligne vers le bas
ActiveCell.Offset(1, 0).Select

End Sub

Sub Macron3()
'Revenir à la cellule d'origine après le copier-coller
Set ici = ActiveCell

ici.Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ici.Select


End Sub
 
Dernière édition:

Discussions similaires

Réponses
3
Affichages
132

Statistiques des forums

Discussions
312 803
Messages
2 092 250
Membres
105 316
dernier inscrit
cyrille225