Discussion :

[philou7176]

Bonjour à tous,

J'ai un petit problème pour réaliser une macro de boucles dans vba et comme je suis débutant en la matière je viens solliciter votre aide

Voila mon problème:

en résumé j'ai un classeur excel contenant 2 feuilles que j'appellerai feuil1 et feuil2.

Dans la feuil2 la colonne A contient des données sur un certain nombre de lignes, de 1 à n lignes, en sachant que ce "n" ne devrait pas dépasser 400... autrement dit dans cette feuille actualisée chaque mois (par importation d'un programme de compta), il y aura au maximum 400 cellules de la colonne A qui auront des données. A noter aussi que certaines cellules peuvent etre "a blanc", c'est à dire sans données.

Dans la feuil1 se trouvent 2 colonnes A et B. La colonne B contient tout simplement les valeurs contenues dans la colonne A de la feuil2 (autrement dit la cellule feuil1.B1= cellule feuil2.A1, feuil1.B2=feuil2.A2, etc...).
Enfin la colonne A contient une numérotation incrémentée de 1 à chaque ligne, en fonction des données présentes dans la colonne B (s'il n'y a pas de données, on ne "numérote" pas).


Il y aurait donc 2 boucles à faire je pense:
Premièrement TANT QUE le programme trouve des données dans la colonne A de la feuil2, il les reporte dans la colonne B de la feuil1, et quand il n'en trouve plus il "s'arrete". D'autre part j'aimerai que si le programme trouve des cellules vides dans la colonne A de la feuil2, il ne les reporte pas dans la colonne B de la feuil1 (autrement dit je voudrais que les données reportées dans ma colonne B de la feuil1 soient inscrites "a la suite" sans tenir compte des eventuels blancs trouvés dans la colonne A de la feuil2, ce qui ferait donc moins de 400 lignes au final).
Deuxièmement, TANT QUE le programme trouve des données dans la colonne B de la feuil1, il incrémente (de 1) une numérotation dans la colonne A de la feuil1, sur les lignes correspondantes... et lorsque il ne trouve plus de données dans cette colonne B, la numérotation s'arrete.

Je vois assez bien comment expliquer cela en francais, mais j'ai beaucoup plus de mal à le "traduire" en VBA pour faire fonctionner mes boucles... aussi si quelqu'un pouvait me donner un petit coup de main sur ces quelques lignes de code, son aide serait la bienvenue !!

Merci beaucoup par avance et bonne journée

Philou

PS: j'espère avoir été suffisament clair dans mes explications, n'hésitez pas a me dire s'il y a des choses que vous ne comprenez pas !

[ouskel'n'or]

Une solution plus simple consisterait à copier la colonne A de feuil1 à colonne B de feuil2 puis de supprimer les cellules vides. Ce qui donnerait

Code :

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

1
2
    sheets("feuil1").columns("A:A").copy Sheets("Feuil2").columns("B:B")
    Sheets("feuil2").columns("B:B").Specialcells(xlCellTypeBlanks).delete Shift:=xlUp

Bonne journée

[DidierLoche]

Bonjour,

Cela devrait faire l'affaire !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
li_feuil1 = 1
Nb_données = 0
li_end_feuil2 = Worksheets("Feuil2").Cells(401, 1).End(xlUp).Row
For li = 1 To li_end_feuil2
    If Worksheets("Feuil2").Cells(li, 1) <> "" Then
        Worksheets("Feuil1").Cells(li_feuil1, 2) = Worksheets("Feuil2").Cells(li, 1)
        Nb_données = Nb_données + 1
        Worksheets("Feuil1").Cells(li_feuil1, 1) = Nb_données
        li_feuil1 = li_feuil1 + 1
     End If
Next li

Didier

[philou7176]

Bonjour,

Merci beaucoup pour vos réponses, j'y vois un peu plus clair

Une autre question cependant (toujours par rapport à ma macro): comment puis-je procéder si ma feuil2 se situe dans un autre classeur et non pas dans le classeur actif (ce que j'ai omis de préciser)?

En clair ma boucle dans la feuil1 doit aller chercher les infos contenues dans la feuil2 du classeur 2 et non pas dans la feuil2 du classeur 1

merci encore pour votre aide

Phil

[ouskel'n'or]

Code :

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

1
2
    Workbooks("Classeur1.xls").Worksheets("feuil1").columns("A:A").copy Workbooks("Classeur2.xls").Worksheets("Feuil2").columns("B:B")
    Workbooks("Classeur2.xls").Worksheets("feuil2").columns("B:B").Specialcells(xlCellTypeBlanks).delete Shift:=xlUp