Discussion :

[Guim's]

Bonjour tout le monde,

Je suis nouveau sur le forum. Etudiant en gestion, et je commence à apprendre progressivement la programmation en VBA.

Je sollicite vos conseils car je bloque sur une macro.

Je souhaiterais réaliser des "copier/coller" d'une cellule pour les x lignes du dessous vides mais en prenant au fur et à mesure que la boucle avance des nouvelles données.

En d'autres termes, j'ai une liste de données avec des cellules vides, et je souhaiterais compléter ces cellules vides avec les données écrites au-dessus.
Mon problème est que le nombre de ligne entre chaque donnée n’est pas constant, j’ai donc du mal à définir des variables.


Pour être plus explicite, j'ai joint le fichier Excel et mon morceau de code.

Je vous remercie grandement pour vos conseils.

Cordialement,

[Nicolas JACQUIN]

Bonjour,

j'ai joint le fichier Excel et mon morceau de code.

il est ou ton code ??

https://www.developpez.net/forums/d8...s/#post6033047

Soit un peu plus explicite

[Theze]

Bonjour,

Testes ce code. Les données devant être en colonne A de la feuille "Feuil1" et à partir de A1 sinon, adaptes :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim I As Long
 
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    For I = 1 To Plage.Count
 
        Set Cel = Plage(I).End(xlDown)
 
        Plage(I).AutoFill Range(Plage(I), Cel.Offset(-1))
        I = Cel.Row - 1
 
    Next I
 
End Sub

[Guim's]

Bonjour,
Cela fonctionne parfaitement. Merci beaucoup!
Nicolas, je le saurai pour la prochaine fois .
Bon week-end !!

[Guim's]

Bonjour tout le monde,
Ce code fonctionne parfaitement. Mais je souhaiterais également sauter une ligne entre chaque série de données (cette ligne correspond au total).
Comme ceci :

Données de base
Paul

Total
Pierre


Total
Etc…



Données souhaitées après avoir fait tourner la macro :

Paul
Paul
Paul
Paul
Total
Pierre
Pierre
Pierre
Pierre
Pierre
Total
Etc…

Theze, je ne vois pas ou il faut que j'adapte le code.
Merci d'avance pour votre aide !
Cordialement,

[Theze]

Bonjour,

Comme ceci peut être :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim I As Long
 
    With Worksheets("Feuil1"): Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
 
    For I = 1 To Plage.Count
 
        Set Cel = Plage(I).End(xlDown)
 
        Plage(I).AutoFill Range(Plage(I), Cel.Offset(-1))
        Cel.EntireRow.Insert xlShiftDown
        I = Cel.Row - 1
 
    Next I
 
End Sub

[Guim's]

Bonsoir,

Cela ne fonctionne pas. je pense qu'il ne faut pas ajouter une ligne (elle y est déjà) mais plutôt sauter une ligne quand on arrive à total, pour pouvoir répéter la même opération avec les autres données.

Au lieu des -1, j'ai essayé de changer ces paramètres mais cela de fonctionne pas.

Je ne sais pas si je suis trés clair .

Merci pour toute l’aide !!