VBA : RECOPIE AUTOMATIQUE et SUPPRESSION LIGNES COMPORTANT UN MOT PRECIS

[Titou99]

Bonjour à tous,

Quelque soucis aujourd'hui je recherche une solution depuis 8h ce matin pour d'une part :

- Supprimer automatiquement, avec un code VBA, des lignes de plusieurs colonnes (C,D,E et F) comportant le mot "Résultat".

D'autre part :

- Recopier des cellules vers le bas automatiquement des colonnes C,D et E qui comporte des cellules vides

Je m'explique : Nous sommes par exemple dans la colonne C je voudrais que si cellule vide alors remonter à la première cellule pleine qui voit et recopier son contenu vers le bas jusqu'à la première cellule qui voit pleine

Je vous joint un exemple pour la recopie

 

[Titou99]

Tout est expliquer dedans

 

[Robert]

Re,

Mais P... de B... de M... (Purée de Bananes Mexicaines évidemment...) un fichier avec la macro (.xlsm) et de préférence sans liens !....

 

[Titou99]

Je suis tellement con, la fin de journée approche semble t'il. Je ne sais pas comment tu fais pour continuer de m'aider.

Voici le fichier

Encore désolé

 

[Robert]

Re,

Oui tu me sembles fatigué car tu ne vois plus l'essentiel. L'onglet c'est Feuil1 dans ce fichier et pas Feuil9, Il te faut penser à adapter si tu mets ce code dans un autre fichier.
Le code adapté au 3 colonnes C, D et E :

Sub Recopie()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim I As Integer 'déclare la variable I (Incrément)
Dim J As Integer 'déclare la variable J (incrément)

Set O = Worksheets("Feuil1") 'défint l'onglet O '<==== ici il faut adapter au nom de l'onglet
DL = O.Cells(Application.Rows.Count, "C").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne A de l'onglet O
For I = 6 To DL - 1 'boucle 1 : sur toutes les lignes I de 6 à DL -1
    For J = 3 To 5 'boucle 2 : sur le colonnes 3 à 5 (=> colonne C à E)
        'si la cellule en-dessous est vide elle prend la valeur de la cellule de la boucle
        If O.Cells(I + 1, J).Value = "" Then O.Cells(I + 1, J).Value = O.Cells(I, J).Value
    Next J 'prochaine colonne de la boucle 2
Next I 'prochaine ligne de la boucle 1
End Sub

 

[Titou99]

Bonjour Robert,

C'est bon tout est ok pour moi, un énorme merci de tes réponses et surtout de ta PATIENCE c'est dingue bref MERCI

Je met la discussion en "Résolu"