Discussion :

[smael51]

bonjour à tous,

novice en VBA, je m'arrache les cheveux depuis ce weeke end pour créer une macro qui récupère certaines données dans un onglet (PilotageCouleur) vers un autre onglet (Smael).

J'ai un tableau ayant un onglet Pilotage qui contient des cellules vides et des cellules avec des dates (exemple : DC=DEC09).

J'arrive dans un premier temps à identifier les cellules vides et les cellules pleines en changeant le fond de couleur de la cellule.

Cependant, la deuxième étape serait de copier pour toutes les cellules non vides, l'information se trouvant dans les colonnes B et C, ainsi que les informations se trouvant dans les lignes 1 et 2, puis il faudrait les coller dans une autre feuille (Smael) dans 5 colonnes séparés (Date comptable,Jour,Date,Frequence,Type). J'espère être assez clair...

J'ai mis un exemple dans l'onglet Smael du fichier joint.

Merci beaucoup pour votre aide

Merci pour votre aide !

[PPz78]

Il faut faire une boucle sur tous les éléments non vides de la zone d'intéret.
Puis si une cellule est en Cells(l,c) la copie ressemble à cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    Sheets("Smael").Cells(LSmael,1)=Sheets("PilotageCouleur").Cells(l,c)
 
    Sheets("Smael").Cells(LSmael,2)=Sheets("PilotageCouleur").Cells(l,2)
    Sheets("Smael").Cells(LSmael,3)=Sheets("PilotageCouleur").Cells(l,3)
 
    Sheets("Smael").Cells(LSmael,4)=Sheets("PilotageCouleur").Cells(1,c)
    Sheets("Smael").Cells(LSmael,5)=Sheets("PilotageCouleur").Cells(2,c)
 
    LSmael=LSmael+1

avec LSmael la première ligne libre de l'onglet Smael