Discussion :

[capi81]

Bonjour le forum



J’ai le code ci-dessous qui me permet de faire un traitement feuille par feuille.

Je sélectionne la feuille active et j’exécute la macro et la plage définie est copiée et collée sur la feuille « CENTRALISATION ».

J’ai essayé de réaménager le code pour qu’à l’exécution le traitement de fasse sur toutes les feuilles sauf celles exclues.

Maintenant je souhaite qu’à chaque collage, le code agence (valeur de cellule ) s’affiche sur la colonne A.

NB : je vais illustrer la plage de la colonne A par un exemple pour faciliter la compréhension.

Si le collage se fait sur la plage B2 :B10 par exemple, la plage de la colonne A à affecter par la valeur de E9 est la plage A2 :A10.

Telle est ma demande et souhaite vos interventions à l’accoutumé.

Ci-dessous mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim sh As Worksheet
 
Dim O As Worksheet
 
Set O = Sheets("CENTRALISATION")
 
Dim DEST As Range
 
Set DEST = IIf(O.Range("B2").Value = "", O.Range("B2"), O.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0))
 
    For Each sh In Worksheets
 
    If sh.Name <> "ANC_RC" And sh.Name <> "NVEL_RC" And sh.Name <> "CENTRALISATION" Then
 
        sh.Select
 
         Range("A12:I731").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
 
        Sheets("NVEL_RC").Range("A1:I94"), Unique:=False
 
        Range("A13:I350").Copy DEST
 
    End If
 
    Next sh

[Marc-L]

Bonjour,

merci encore une fois de commencer par respecter les règles de ce forum, à savoir baliser le code ‼

[parmi]

Bonjour,

mets cette ligne au début de ta boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set DEST = IIf(O.Range("B2").Value = "", O.Range("B2"), O.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0))

[capi81]

Bonsoir a tous
Marc-L: avec un smartphone on a pas toutes les options pour travailler sur ce forum voilà pourquoi mes codes ne sont pas balisé..
Parmi: votre solution ne resoud pas mon problème..

[Marc-L]

Comme si le Copier/Coller eut été réalisé avec un smartphone !

Ne pas être étonné à force de ne plus obtenir de réponse …  

[RyuAutodidacte]

Bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

   ' Voilà je viens de faire le  balisage avec mon phone

Et encore mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim sh As Worksheet
 
Dim O As Worksheet
 
Set O = Sheets("CENTRALISATION")
 
Dim DEST As Range
 
Set DEST = IIf(O.Range("B2").Value = "", O.Range("B2"), O.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0))
 
For Each sh In Worksheets
 
If sh.Name <> "ANC_RC" And sh.Name <> "NVEL_RC" And sh.Name <> "CENTRALISATION" Then
 
sh.Select
 
Range("A12:I731").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
 
Sheets("NVEL_RC").Range("A1:I94"), Unique:=False
 
Range("A13:I350").Copy DEST
 
End If
 
Next sh

Toujours de mon phone avec le copier/coller … comme quoi c'est possible !!!!

C'est sur cela prends un peu plus de temps, mais l'effort est fait !!! Et les règles sont respectées !!!
C'est qd même plus lisible …

Salut Marc

[parmi]

Bonsoir a tous
Parmi: votre solution ne resoud pas mon problème..

Et quel est le problème plus exactement ?

[capi81]

Bonsoir Parmi et le forum

mets cette ligne au début de ta boucle

Peut être que vous n'avez pas bien cerné mon besoin.
Avec le code ci-dessous modifié, vous allez certainement mieux me comprendre.
J'ai essayé de le bricoler suivant ma logique mais il fonctionne pas comme je souhaite:
- il ne colle pas bien les données:mois je souhaite que les éléments filtrés seulement soit copiés et collés sur la feuille de destination,
- aussi la colonne A n'est pas renseignée par la valeur de la cellule E9 : en effet lorsque des éléments d'une feuille sont copiés sur la feuille de destination, après collage sur la colonne B, les cellules vide de la colonne A doivent prendre la valeur de E9 (de la feuille copiée).
Merci de m'aider à parfaire mon code pour atteindre le résultat souhaité.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim sh As Worksheet
Dim O As Worksheet
Dim Max_ligne As Long
Dim i As Long
Set O = Sheets("CENTRALISATION")
Dim DEST As Range
 
    For Each sh In Worksheets
    Set DEST = IIf(O.Range("B2").Value = "", O.Range("B2"), O.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0))
    If sh.Name <> "NVEL_RC" And sh.Name <> "CENTRALISATION" And sh.Name <> "ANC_RC" Then
        'sh.Select
         sh.Range("A12:I731").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Sheets("NVEL_RC").Range("A1:I94"), Unique:=False
        Range("A13:I350").Copy DEST
    End If
    'Inscription de la valeur de la cellule E9 en colonne A si b non vide, ou b rempli de blancs
    For i = 2 To Max_ligne
        If Replace(Cible.Cells(i, 2).Value, " ", "") <> "" Then
        O.Cells(i, 1).Value = sh.Range("E9").Value
    End If
    Next i
    Next sh