automatisation d'un copier/coller avec condition

[david7]

bonjour à tous le forum ! 😉

après quelques recherches et sur tout moultes test (if etc ..), je ne trouve pas la solution à mon problème qui est le suivant

j'ai 3 colonnes A,B,C (je suis dans l'originalité, je sais) avec plus de 50000 lignes.

en A et tout les X lignes (X étant totalement variable) j'ai des données spécifiques "titre" qui sont toutes différentss mais ayant la particularité de toutes commencer par "Pour" ainsi les données ressemblent à :

A B C
Pour N
x x x
x x x
x x x
Pour K
x x x
x x x
Pour M
x x x
etc....

je souhaiterais "juste" en colonne D copier les données spécifique et les mettre à coté des données qui leur correspondent c'est à dire les données étant sous ce titre; Ainsi:

A B C D
Pour N
x x x Pour N
x x x Pour N
x x x Pour N
Pour K
x x x Pour K
x x x Pour K
Pour M
x x x Pour M
etc....


j'espère avoir été le plus claire possible et vous remercie par avance pour vos solutions ou au moins vos pistes

 

[Staple1600]

Re : automatisation d'un copier/coller avec condition

Bonsoir à tous

Brut de décoffrage (on peut faire beaucoup mieux)
Test Ok
Lancer la macro main

Sub main()
a1: a2: a3
End Sub

Sub a1()
Dim c As Range
For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(3))
If c Like "Pour *" Then
c.Offset(1, 3) = c
End If
Next
End Sub
Sub a2()
dl = Cells(Rows.Count, 1).End(3).Row
With Range("D2:D" & dl)
.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
.Value = .Value
End With
End Sub
Sub a3()
Dim c As Range
For Each c In Range(Cells(1, 1), Cells(Rows.Count, 1).End(3))
If c Like "Pour *" Then
Cells(c.Row, "D") = Empty
End If
Next
End Sub

 

[Victor21]

Re : automatisation d'un copier/coller avec condition

Bonsoir, david7

Belle explication, qui ne remplacera jamais à mes yeux fatigués un court fichier Excel en exemple avec quelques données de base bien choisies pour représenter tous les cas de figure, les explications sur le besoin, et les résultats souhaités.

Edit : Bah ! JM !!!
😉

 

[Staple1600]

Re : automatisation d'un copier/coller avec condition

Bonsoir Victor21


Tu as bien raison 😉
Mais pour une fois j'ai fait fi
(je dois couver quelque chose 😉)

voir message précédent pour jouer avec les Pour 😉

 

[david7]

Re : automatisation d'un copier/coller avec condition

Messieurs,

merci pour ce retour, j'ai donc testé en crée 2 modules et en lançant le module main, le script tourne mais m'affiche des 0 à la place de mes fameux titres.

suite à la remarque de Victor21 je joint un fichier avec les fameux 0 , je ne voie pas le problème car le "Pour" étant bien indiqué...

merci de votre aide

 

[Staple1600]

Re : automatisation d'un copier/coller avec condition

Bonjour à tous

david7
Récris la macro main de cette façon

Sub main()
a1
a2
a3
End Sub

et relances cette version de la macro
(Donc tu effaces l'autre version, avant de relancer la "nouvelle" version)
J'ai testé sur ton fichier exemple, cela fonctionne.

 

[Victor21]

Re : automatisation d'un copier/coller avec condition

Bonjourn,david7.

Une proposton, de ce que j'ai compris en PJ :
🙂

Edit : pour fare sute à la remarque judceuse de JM, je rajoute les manquants :

iiiiiii

😉

 

[Staple1600]

Re : automatisation d'un copier/coller avec condition

Re

Victor21
[pjoke]
Pas envie de tâter du VBA aujourd'hui 😉 ?
Tu préfères t'étendre sur les formules...😉 (et là c'est le cas de le dire 😉 )
Enfin je suppose que ta proposton est aussi belle que Viviane 😉
[/pjoke]

david7
Alors cela fonctionne ou pas chez toi la version modifiée de main ?

 

[david7]

Re : automatisation d'un copier/coller avec condition

Messieurs,

j'ai testé la macro et cela fonctionne à merveille, par curiosité j'ai également testé la formule de Victor21 et je suis Bon aussi.

Mon problème étant résolu, je vous en remercie.