Microsoft 365 Répéter en boucle plusieurs actions VBA

Fabii

XLDnaute Nouveau
Bonjour à tous,

Franchement ce forum est top et m'a beaucoup aidé, mais voila je bloque sur une partie de ma macro.

J'èspère que je serai clair dans mon explication.

Je souhaiterais que

- pour chaque cellule contenant des données de ma colonne D on insère un ligne à la suite,
- Copier le contenu des cellules A et B du dessus
- Remplir la cellule C par la valeur de la cellule D du dessus
- Supprimer la colonne D
- Et recommencer tant qu'il n'y a plus aucune cellule contenant des données dans la colonne D.

J'ai le début du code enfin je crois mais n'arrive pas a créer une boucle

Voila ce que j'ai

Set FL1 = Nothing
Dim Ligne As Long
' derniere ligne remplie de la colonne E
Ligne = ActiveSheet.Columns(5).Find("*", , , , xlByColumns, xlPrevious).Row
' boucle depuis la dernière ligne remplie jusqu'à la 1
For n = Ligne To 2 Step -1 ' si necessaire de s'arrêter avant la ligne 1 changer To 1
' si cellule en E vide
If Range("E" & n).Value <> "" Then
' alors insertion à la ligne suivante
Rows(n + 1 & ":" & n + 1).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If

Mercii de votre aide :)
Next
With Range("A2:C2" & [D65000].End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
With Range("D2:D" & [E65000].End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C[1]"
.Value = .Value
Columns(5).Delete
End Sub
 

TooFatBoy

XLDnaute Barbatruc
Bonjour,

J'èspère que je serai clair dans mon explication.
Pour être clair également au niveau visuel, tu peux utiliser la balise code=vb ;)


Je souhaiterais que

- pour chaque cellule contenant des données de ma colonne D on insère un ligne à la suite,
- Copier le contenu des cellules A et B du dessus
- Remplir la cellule C par la valeur de la cellule D du dessus
- Supprimer la colonne D
- Et recommencer tant qu'il n'y a plus aucune cellule contenant des données dans la colonne D.
Une fois que tu as supprimé la colonne D, elle ne doit plus contenir grand chose...

Quant aux cellules "A", "B" et "C", il faudrait expliquer ce que c'est. On ne peut pas deviner. ;)
 

Fabii

XLDnaute Nouveau
Hello @TooFatBoy

En c'est la première fois que je fais ça, du coup je ne connais pas mais alors pas du tout les termes.

Une fois que je supprime la colonne D, la E prend sa place et devient donc colonne D avec des cellules renseignées.

J'aurai aimé mettre un fichier mais je n'en ai pas la permission vraiment désolée.
 

Phil69970

XLDnaute Barbatruc
Bonjour @Fabii et TFB

J'aurai aimé mettre un fichier mais je n'en ai pas la permission vraiment désolée.

Rien ne t’empêche de mettre un fichier représentatif et de l'anonymiser !!!

Le demandeur ne veut/peut pas mettre un fichier pour expliquer son problème et nous qui ne connaissons rien à ton problème devons faire un fichier sorti de nulle part surement intransposable dans ton cas.

La aussi c’est simple et limpide
Pas de bras pas de chocolat !! :rolleyes:

Le demandeur ne veux pas s'investir et ne veux pas de notre aide plus que cela, c'est pas grave il y a d'autres demandeurs qui veulent bien être aider.

Et d'une manière générale à lire les demandes j'ai l’impression que presque tous les demandeurs travaillent pour la défense nationale et ont des fichiers secret défense
==> si je te le montre je suis obligé de te tuer o_O 🤣

Personne ne sait anonymiser un fichier 🤔 avec une dizaine ou vingtaine de lignes pour le rendre compatible avec le RGPD et reflétant la structure et le nom des onglets du fichier original !!!

Bonne lecture

@Phil69970
 

Phil69970

XLDnaute Barbatruc
Re

My name is not Bond
James Bond agent 007

My name is Phil
Phil agent 69970
Je suis habilité secret DEFONCE mais complétement défonce🙃 :D
1672674709261.png

1672674872799.png
1672675039601.png
1672675162955.png
 

Deadpool_CC

XLDnaute Accro
Une fois que je supprime la colonne D, la E prend sa place
Bonjour a tous,
je pense qu'il voulait dire supprimer la valeur dans la colonne D et non pas supprimer la colonne D.
Mais bon avec une explication approximative et sans fichier exemple avec quelques lignes ... difficile à dire.

Et pour info moi je suis accrédité confidentiel défense ... lol
C'est ça d'être un super (anti) héro :)
 
Dernière édition: