Maxou le petit
Messages postés47Date d'inscriptionjeudi 16 juin 2005StatutMembreDernière intervention21 mai 2007
-
16 juin 2005 à 23:12
galopin01
Messages postés133Date d'inscriptionlundi 4 octobre 2004StatutMembreDernière intervention14 octobre 2011
-
17 juin 2005 à 07:06
Bonjour ;
Régulièrement dans mon job, j'effectue des extractions de donnée d'un logiciel vers excel. Les bases ne sont pas toujours exploitables en l'état.
J'ai donc décidé de créer une macro me permettant de remettre en forme les données.
Je souhaite, dans une colonne ou figurent des données entrelancées de cellules vides, que ces données soient recopiées dans la ou les cellules vides du bas jusqu'à la donnée de la celluel suivante.
Et ainsi de suite jusqu'à la fin du tableau...
Voici le code que j'ai écrit, mais il ne fonctionne pas bien !
Les MGSBOX me permettent de savoir ou j'en suis !
Sub recopie_automatique()
Dim Cellule, Haut, Bas, Compteur
colonne = ActiveCell.Column
MsgBox ("Numéro de colonne testée : " & colonne)
Haut = Selection.End(xlUp).Row
MsgBox ("Numéro de la 1° ligne : " & Haut)
Bas = ActiveSheet.UsedRange.Rows.Count
MsgBox ("Numéro de la dernière ligne : " & Bas)
For Compteur = Haut To Bas
If Cells(Compteur, colonne).Value <> "" Then
Valeurcellule = Cells(Compteur, colonne).Value
MsgBox ("Valeur de la variable : " & Valeurcellule)
Compteur = Compteur + 1
If Cells(Compteur, colonne).Value = "" Then
Cells(Compteur, colonne).Value = Valeurcellule
End If
End If
Next
End Sub
A voir également:
Création d'un petit programme permettant de recopier des cellules
Maxou le petit
Messages postés47Date d'inscriptionjeudi 16 juin 2005StatutMembreDernière intervention21 mai 2007 17 juin 2005 à 06:06
Ok bien vu ça marche, mais comment dois-je faire pour que la recopie s'arrête en bas de mon tableau et non jusqu'à la fin de feuille excel.
Je débute alors je n'ai pas tout compris !!