Incrémenter valeurs dans macro excel (VBA)
Regenium
Messages postés
87
Statut
Membre
-
Regenium Messages postés 87 Statut Membre -
Regenium Messages postés 87 Statut Membre -
Bonjour à tous,
Je suis un total newbie en VBA et je cherche de l'aide pour réaliser une manip simple:
j'ai un fichier pdf qui comporte 3 colonnes et en faisant un copier-coller dans excel, tout se retrouve sous une seul colonne:
pdf:
A1 B1 C1
A2 B2 C2...
Excel:
A1
B1
C1
A2
B2
C2
Je voudrais donc remettre en forme cette feuille excel.
J'ai fais une macro:
Sub Macro4()
'
' Macro4 Macro
'
'
Range("A2").Select
Selection.Cut
Range("B1").Select
ActiveSheet.Paste
Range("A3").Select
Selection.Cut
Range("C1").Select
ActiveSheet.Paste
Rows("2:3").Select
Selection.Delete Shift:=xlUp
End Sub
Comment fait-on pour incrémenter les cellules à la fin de la macro ci-dessus ? (A2 devient A3, B1 devient B2... et que la macro s'arrête lorsqu'il n'y a plus de valeurs?
Merci pour votre aide !
Rege
Je suis un total newbie en VBA et je cherche de l'aide pour réaliser une manip simple:
j'ai un fichier pdf qui comporte 3 colonnes et en faisant un copier-coller dans excel, tout se retrouve sous une seul colonne:
pdf:
A1 B1 C1
A2 B2 C2...
Excel:
A1
B1
C1
A2
B2
C2
Je voudrais donc remettre en forme cette feuille excel.
J'ai fais une macro:
Sub Macro4()
'
' Macro4 Macro
'
'
Range("A2").Select
Selection.Cut
Range("B1").Select
ActiveSheet.Paste
Range("A3").Select
Selection.Cut
Range("C1").Select
ActiveSheet.Paste
Rows("2:3").Select
Selection.Delete Shift:=xlUp
End Sub
Comment fait-on pour incrémenter les cellules à la fin de la macro ci-dessus ? (A2 devient A3, B1 devient B2... et que la macro s'arrête lorsqu'il n'y a plus de valeurs?
Merci pour votre aide !
Rege
A voir également:
- Incrémenter valeurs dans macro excel (VBA)
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
2 réponses
Bonjour,
Tu n'es pas obligé de faire une macro.
En supposant que tes données commencent en A1, en B1 tu mets :
=DECALER($A$1;(LIGNE()-1)*3+COLONNE()-2;)
tu recopies à droite sur 3 colonnes,
tu sélectionnes B1:D1 que tu recopies vers le bas.
eric
Tu n'es pas obligé de faire une macro.
En supposant que tes données commencent en A1, en B1 tu mets :
=DECALER($A$1;(LIGNE()-1)*3+COLONNE()-2;)
tu recopies à droite sur 3 colonnes,
tu sélectionnes B1:D1 que tu recopies vers le bas.
eric
