Discussion :

[INFINITY100]

Bonsoir à tous

Voila je suis face à un petit soucis de combinaison en effet je voudrai appliquer les mêmes procédures de la macro ci-dessous (qui fonctionne parfaitement en feuille1) dans la feuille2 en cliquant sur le même bouton nommé CommandButton1_Click

Voici la macro :

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
Private Sub CommandButton1_Click()
Dim Ctrl As Control
Dim r As Integer
Dim Derligne As Integer
Dim LigneDebut As Long
Dim x As Integer, L As Integer, nombre_de_colonne As Integer
Dim Ligne As Long, Celluledebut As Integer, Cellulefin As Integer
 
With Worksheets("feuil1")
LigneDebut = 12
Derligne = .Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Ligne = Derligne
Celluledebut = 3: Cellulefin = 7
Range(Cells(Ligne, Celluledebut), Cells(Ligne, Cellulefin)).Merge
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(Derligne, r) = Ctrl
nombre_de_colonne = 2
  For x = 2 To nombre_de_colonne
    L = Cells(Rows.Count, 1).End(xlUp).Row
    Cells(L + 1, x).Formula = "=SUM(" & Cells(12, x).Address & ":" & Cells(L, x).Address & ")"
             Next
         Next
   End With
   TextBox1 = ""
   Unload Me
End Sub

Merci par avance

Cordialement

[joe.levrai]

Bonjour,

une simple boucle à faire sur tes deux feuilles
tu boucles sur les feuilles du fichier et tu les cherches par le nom

ou alors tu stockes les noms dans un tableau, et tu le parcours

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
Sub MesFeuilles()
Dim LesFeuilles() As Variant
Dim LaFeuille As Worksheet
Dim i As Integer
 
    Feuilles = Array("Feuil1", "Feuil2", "Feuil3")
    For i = LBound(Feuilles) To UBound(Feuilles)
        Set LaFeuille = Worksheets(Feuilles(i))
 
        ' ton code en utilisant LaFeuille
        MsgBox LaFeuille.Name
    Next i
 
    Set LaFeuille = Nothing
End Sub

[INFINITY100]

Merci mon ami

Mais étant nul en Vba j'ai eu du soucis appliquer ça car mon bouton de validation est situer dans un userform

bréf voici mon classeur pour être plus claire

Merci

[gnain]

Bonjour,

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
36
37
 
Private Sub CommandButton1_Click()
 
Meme_Procedure "Feuil1"
Meme_Procedure "Feuil2"
Meme_Procedure "Feuil3"
 
Unload Me
End Sub
 
Sub Meme_Procedure(ByVal Nom_Feuille As String)
Dim Ctrl As Control
Dim r As Integer
Dim Derligne As Integer
Dim LigneDebut As Long
Dim x As Integer, L As Integer, nombre_de_colonne As Integer
Dim Ligne As Long, Celluledebut As Integer, Cellulefin As Integer
 
With Worksheets(Nom_Feuille)
LigneDebut = 12
Derligne = .Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Ligne = Derligne
Celluledebut = 3: Cellulefin = 7
Range(Cells(Ligne, Celluledebut), Cells(Ligne, Cellulefin)).Merge
For Each Ctrl In UserForm1.Controls
r = Val(Ctrl.Tag)
If r > 0 Then Feuil1.Cells(Derligne, r) = Ctrl
nombre_de_colonne = 2
  For x = 2 To nombre_de_colonne
    L = Cells(Rows.Count, 1).End(xlUp).Row
    Cells(L + 1, x).Formula = "=SUM(" & Cells(12, x).Address & ":" & Cells(L, x).Address & ")"
             Next
         Next
   End With
   TextBox1 = ""
 
End Sub

[INFINITY100]

Bonjour gnain

Merci infiniment ça marche à merveille travail d'un pro

Merci encore à notre ami joe.levrai

Cordialement