Bonjour,
Voilà mon problème, j'ai une macro (fabriquée par Job) qui consiste à rassembler dans un onglet certaines données.
Ces données se mettent les unes en dessous des autres avec un espace entre les données prises dans chaque onglet.
Donc ça c'est fait.
Il s'agit de 2 lignes.
La première est le nom du programme
La seconde est le titre d'une action du programme.
Mais voilà : dans un programme il y a plusieurs actions.
Etant donné que chaque onglet correspond à une action, lorsque j'active la macro de job j'ai donc plusieurs fois le même programme disséminé dans la liste avec à chaque fois une action différente.
Je suppose que vous me voyez venir, et d'après moi, mon problème inextricable. Mais qui ne tente rien n'a rien...
Il s'agit qu'à chaque fois qu'un programme revient, le nom de ce programme ne soit collé qu'une fois.
Et que sous ce nom de programme viennent se coller les différentes actions.
Cela veut dire tri, classement et créations de lignes aléatoires.
Là, si vous y arrivez, ben, je bois un coup à votre santé.
Voici la macro de Job
Sub Rassembler_ActionsetProgrammes()
Dim adr$, lig&, decal&, w As Worksheet, mem
adr = "O10:U11" 'adresse à adapter
lig = 1 '1ère ligne de destination, à adapter
Application.ScreenUpdating = False
With Sheets("PROGRAMMES")
decal = .Range(adr).Rows.Count + 1 '1 ligne de séparation
.Rows(lig & ":" & .Rows.Count).Clear 'RAZ
For Each w In Worksheets
If UCase(w.Name) Like "F#*" Then
mem = w.Range(adr).Formula 'mémorise les formules
w.Range(adr) = w.Range(adr).Value 'supprime les formules
w.Range(adr).Copy .Cells(lig, 1) 'copier-coller
w.Range(adr) = mem 'restitution
lig = lig + decal
End If
Next
.Activate 'facultatif
End With
End Sub
Je vous mets un lien. Tout doit se mettre dans l'onglet RAPPORTS
Voilà mon problème, j'ai une macro (fabriquée par Job) qui consiste à rassembler dans un onglet certaines données.
Ces données se mettent les unes en dessous des autres avec un espace entre les données prises dans chaque onglet.
Donc ça c'est fait.
Il s'agit de 2 lignes.
La première est le nom du programme
La seconde est le titre d'une action du programme.
Mais voilà : dans un programme il y a plusieurs actions.
Etant donné que chaque onglet correspond à une action, lorsque j'active la macro de job j'ai donc plusieurs fois le même programme disséminé dans la liste avec à chaque fois une action différente.
Je suppose que vous me voyez venir, et d'après moi, mon problème inextricable. Mais qui ne tente rien n'a rien...
Il s'agit qu'à chaque fois qu'un programme revient, le nom de ce programme ne soit collé qu'une fois.
Et que sous ce nom de programme viennent se coller les différentes actions.
Cela veut dire tri, classement et créations de lignes aléatoires.
Là, si vous y arrivez, ben, je bois un coup à votre santé.
Voici la macro de Job
Sub Rassembler_ActionsetProgrammes()
Dim adr$, lig&, decal&, w As Worksheet, mem
adr = "O10:U11" 'adresse à adapter
lig = 1 '1ère ligne de destination, à adapter
Application.ScreenUpdating = False
With Sheets("PROGRAMMES")
decal = .Range(adr).Rows.Count + 1 '1 ligne de séparation
.Rows(lig & ":" & .Rows.Count).Clear 'RAZ
For Each w In Worksheets
If UCase(w.Name) Like "F#*" Then
mem = w.Range(adr).Formula 'mémorise les formules
w.Range(adr) = w.Range(adr).Value 'supprime les formules
w.Range(adr).Copy .Cells(lig, 1) 'copier-coller
w.Range(adr) = mem 'restitution
lig = lig + decal
End If
Next
.Activate 'facultatif
End With
End Sub
Je vous mets un lien. Tout doit se mettre dans l'onglet RAPPORTS
