Boucle Macro Excel
Fermé
Voldo2142
-
29 avril 2009 à 17:31
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 30 avril 2009 à 12:14
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 30 avril 2009 à 12:14
A voir également:
- Boucle Macro Excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
30 avril 2009 à 12:14
30 avril 2009 à 12:14
En supposant que les données à "transférer" soit entre les cellules A7 et A20, et que tu doivent les "transférer" directement à la suite de ton tableau, la macro correspondrait à ça :
Sub Macro1()
Dim i As Integer
For i = 7 To 20
ActiveSheet.Range("A" & i).Select
If ActiveCell.Offset(0, 1).Value <> "" Then
Selection.Copy
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
Voilà
Sub Macro1()
Dim i As Integer
For i = 7 To 20
ActiveSheet.Range("A" & i).Select
If ActiveCell.Offset(0, 1).Value <> "" Then
Selection.Copy
Do While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveSheet.Paste
Else
ActiveCell.Offset(1, 0).Select
End If
Next i
End Sub
Voilà
hich24
Messages postés
1633
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
3 novembre 2024
753
30 avril 2009 à 11:56
30 avril 2009 à 11:56
la formule n'est pas complette
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 752
30 avril 2009 à 12:02
30 avril 2009 à 12:02
Bonjour,
Mise à part la parenthèse à la fin la formule est bonne. Si tu veux, par contre supprimer les lignes vides, il faudra passer par une macro je pense.
Mise à part la parenthèse à la fin la formule est bonne. Si tu veux, par contre supprimer les lignes vides, il faudra passer par une macro je pense.