Création d'un petit programme permettant de recopier des cellulesRésolu

Question

Bonjour ;

R&#233;guli&#232;rement dans mon job, j'effectue des extractions de donn&#233;e d'un logiciel vers excel. Les bases ne sont pas toujours exploitables en l'&#233;tat.
J'ai donc d&#233;cid&#233; de cr&#233;er une macro me permettant de remettre en forme les donn&#233;es.
Je souhaite, dans une colonne ou figurent des donn&#233;es entrelanc&#233;es de cellules vides, que ces donn&#233;es soient recopi&#233;es dans la ou les cellules vides du bas jusqu'&#224; la donn&#233;e de la celluel suivante.
Et ainsi de suite jusqu'&#224; la fin du tableau...

Voici le code que j'ai &#233;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&#233;ro de colonne test&#233;e : " & colonne)
  Haut = Selection.End(xlUp).Row
  MsgBox ("Num&#233;ro de la 1&#176; ligne : " & Haut)
  Bas = ActiveSheet.UsedRange.Rows.Count
  MsgBox ("Num&#233;ro de la derni&#232;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

galopin01 · Accepted Answer

bonjour, tu peux utiliser le début de ton code pour écrire : For Each cellule In Range(cells(haut,colonne),cells(bas,colonne)) .... sinon si tu veux corriger ton propre code... Si on veut faire une analyse de l'erreur tu as écris : For… if cellule <> "" alors var = cellule if cellule = "" 'cette condition ne peut jamais être vrai car cellule <> "" End if End if Next Il fallait écrire : For… if cells(...) <> "" alors var = cellule else cells(...) = var End if Compteur = Compteur + 1 Next

cs_David_wklw · Answer

Eventuellement, le tagada, c pour que tu comprennes que tu mets ce que tu veux...

Sub test()
Dim CellulesTagadatsointsoin


For Each CellulesTagadatsointsoin In Range("A:A")


    If CellulesTagadatsointsoin.Value = 0 Then
        CellulesTagadatsointsoin.Value = CellulesTagadatsointsoin.Offset(-1, 0).Value
    End If


Next



End Sub

cs_David_wklw · Answer

Sorry j'ai oubli&#233;, tu peux changer le range comme tu veux , meme le "variabliliser"

A+

Maxou le petit · Answer

Ok bien vu &#231;a marche, mais comment dois-je faire pour que la recopie s'arr&#234;te en bas de mon tableau et non jusqu'&#224; la fin de feuille excel.
Je d&#233;bute alors je n'ai pas tout compris !!

Création d'un petit programme permettant de recopier des cellules

4 réponses

Discussions similaires