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

[Fabii]

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" & [E65000].End(xlUp).Row)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C[1]"
.Value = .Value
Columns(5).Delete
End Sub

 

[TooFatBoy]

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]

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]

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 !!

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

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]

Re

Spoiler: Et je rajouterais

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

 

[Deadpool_CC]

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

 

[Cousinhub]

Et pour info moi je suis accrédité confidentiel défense ... lol

Bonsoir,
Ouh là, ça fait déjà plus de 18 mois que cette appellation n'existe plus....
Mais on dérive, on dérive...
Edit, et félicitations pour ton millième

 

[Deadpool_CC]

Ouh là, ça fait déjà plus de 18 mois que cette appellation n'existe plus....

Oui je sais ... c'est par habitude que j'utilise ce terme ... car je trouve les terme "Secret" et "Très Secret" un peu infantilisant ... mdr

et félicitations pour ton millième

Merci ... un vrai plaisir de s'impliquer dans cette communauté