Discussion :

[capi81]

Salut le forum

Malgré vos multiples soutiens, j'ai toujours pas encore bien assimilé la logique sur :
comment étendre un traitement d'une feuille source vers les autres feuilles du même classeur.
Voici le cas actuel que je n'arrive pas à solutionner:
je souhaite insérer des lignes dans mon tableau.
L’insertion devra être faite sur la ligne 20, 22 avec respectivement comme contenu en A20 (Fonctionnaire non Titulaire), A22 (DAT) et A33 (Affacturage).
Je souhaite aussi remplacer le contenu de la cellule A30 en Crédit CT & MT.
Voici ce que j'ai essayé de bricoler mais ca ne produit pas mes attentes.
Merci de m'aider avec explication à l'appui sans vouloir trop abuser de votre temps.

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
26
27
28
29
30
31
32
33
34
35
    Sub Insert()
    '
 
 
        For Each Feuille In Worksheets
            If Feuille.Name <> "2015" And Feuille.Name <> "Janv 2015" And Feuille.Name <> "TBC Js1" Then
                'For I = 0 To UBound(arrCellules)
                    'Sheets("OUAGA SIEGE").Range(arrCellules(I)).Copy Feuille.Range(arrCellules(I))
               ' Next
 
        Rows("20:20").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A20").Select
        ActiveCell.FormulaR1C1 = "Fonctionnaire non Titulaire"
        Range("A21").Select
        ActiveWindow.SmallScroll Down:=3
        Rows("23:23").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Range("A23").Select
        ActiveCell.FormulaR1C1 = "DAT"
        Range("A24").Select
        ActiveWindow.SmallScroll Down:=12
        Range("A32").Select
        ActiveCell.FormulaR1C1 = "Crédit CT & CMT"
        Rows("33:33").Select
        Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        ActiveCell.FormulaR1C1 = "Affacturage"
        Rows("33:33").Select
        Range("B33").Activate
        ActiveWindow.SmallScroll Down:=0
        Range("A34").Select
         End If
        Next
 
    End Sub

[GADENSEB]

hello

tu n'as pas définit tes variables :
Feuille
Worksheets

La solution est peu être là ! ;-)

[capi81]

Salut GADENSEB et le forum

Merci pour ton feedback et d'avoir attiré mon attention.
J'ai défini Feuille

Code :

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

(Feuille as worksheet)

mais toujours pas de résultat.
Merci de voir.
Je continue de regarder à mon niveau aussi.

[Aposto]

Bonjour à tous,

tu fais un for each feuille, mais après tu n'utilises pas la feuille que tu pointe.

il faut que tu ajoutes soit:
-feuille.activate après ton if
-tu utilises un bloc with, ceci est plus rapide, comme ça:

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
   Sub Insert()
    '
 
 
        For Each feuille In Worksheets
            If feuille.Name <> "2015" And feuille.Name <> "Janv 2015" And feuille.Name <> "TBC Js1" Then
                'For I = 0 To UBound(arrCellules)
                    'Sheets("OUAGA SIEGE").Range(arrCellules(I)).Copy Feuille.Range(arrCellules(I))
               ' Next
 
        With feuille
            .Rows("20:20").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            .Range("A20").FormulaR1C1 = "Fonctionnaire non Titulaire"
            .Range("A21").SmallScroll Down:=3
            .Rows("23:23").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            .Range("A23").FormulaR1C1 = "DAT"
            .Range("A32").FormulaR1C1 = "Crédit CT & CMT"
            .Rows("33:33").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            .ActiveCell.FormulaR1C1 = "Affacturage"
            .Range("A34").Select
        End With
         End If
        Next
 
    End Sub

j'en ai profité pour faire le ménage, le code créé par le générateur de macros n'est pas optimum

[capi81]

Salut Aposto

Merci pour votre solution.
J'ai rencontré un peu de soucis mais suis arrivé à l'adapter et ca marche.
Ci-dessous le code légèrement modifié:

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
26
27
28
Sub Insert()
    '
 
    Dim Feuille As Worksheet
 
 
        For Each Feuille In Worksheets
            If Feuille.Name <> "2015" And Feuille.Name <> "Janv 2015" And Feuille.Name <> "TBC Js1" Then
                'For I = 0 To UBound(arrCellules)
                    'Sheets("OUAGA SIEGE").Range(arrCellules(I)).Copy Feuille.Range(arrCellules(I))
               ' Next
 
        With Feuille
            .Rows("20:20").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            .Range("A20").FormulaR1C1 = "Fonctionnaire non Titulaire"
            '.Range("A21").SmallScroll Down:=3
            .Rows("23:23").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            .Range("A23").FormulaR1C1 = "DAT"
            .Range("A32").FormulaR1C1 = "Crédit CT & CMT"
            .Rows("33:33").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            .Range("A33").FormulaR1C1 = "Affacturage"
 
        End With
        Range("A34").Select
         End If
        Next
 
    End Sub