Discussion :

[Kris41]

Bonjour à tous,

J'ai besoin d'aide pour programmer ce que je voudrais faire pour automatiser la saisie des informations pour mon boulot.

Dans un premier temps je voudrais programmer la copie automatique de la saisie des différentes informations de la première feuille "validation BC" sur l'avant dernière feuille "synthèse en cours".

Dans un deuxième temps, je voudrais que quand je saisie la "Date du BC" sur la première feuille, celle-ci se désactive, et activer la deuxième feuille "Edition BC" pour continuer la saisie, sachant que mon rapport entre toutes les feuilles sera le n° de bon de commande. Donc programmer la copie automatique de la saisie de la deuxième feuille "Edition BC sur l'avant dernière feuille "synthèse en cours". Et supprimer la ligne de la première feuille "validation BC" car celle-ci est passé sur la deuxième feuilles.

J'espère être clair dans mes explications et que cela est possible.

Je vous remercie par avance de toute l'aide que vous pourrez me fournir.

Cordialement.TABLEAU DE SUIVI GENERAL VG.xlsm

[Kris41]

Pour le moment je bloque sur ce 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
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim DernLign As Long, i&, LignCible
 
derlign = .Range("A" & .Rows.Count).End(xlUp).Row
LigneCible = 4
For i = 5 To derlign
If .Range("O" & i) <> "" Then
Sheets("Edition BC").Activate
.Range("C" & i).Copy Sheets("EDITION BC").Range("A" & LignCible)
.Range("D" & i).Copy Sheets("EDITION BC").Range("B" & LignCible)
.Range("O" & i).Copy Sheets("EDITION BC").Range("C" & LignCible)
LigneCible = LigneCible + 1
End If
Next
 
End Sub

[QuestVba]

Bonsoir,

Que veux-tu dire par :

Pour le moment je bloque sur ce code.

• Il y a une erreur ?
• Il ne fait pas ce que tu désires ?
• ...

[Kris41]

Bonjour,

Le code fait bien ce que je veux le seule soucis c'est que j'utilise des tableaux insérés donc il fait une partie de ce que je veux. J'essai de l'adapter sur les tableaux insérés mais je peine beaucoup.

Voici le classeur en question mis à jour si on peut dire ainsi.

[Kris41]

Bonsoir à tous,

J'ai un peu progressé dans ce que je voulais faire mais je n'obtiens pas encore l'effet désiré, voici le 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub CommandButton1_Click()
 
Dim TableauValidationBC() As String
Dim l As Integer
Dim DernLign As Long, i&, LignCible
Dim Table1, Table2 As ListObjects
 
Set Table1 = ThisWorkbook.Worksheets("VALIDATION BC").ListObjects("TableauValidationBC")
 
        With Table1
 
        DernLign = Range("A" & Rows.Count).End(xlUp).Row
        LignCible = 6
 
            For i = 6 To DernLign
                If Range("N" & i) = "OUI" Then
 
                Range("C" & i).Copy Sheets("EDITION BC").Range("A" & LignCible)
                Range("D" & i).Copy Sheets("EDITION BC").Range("B" & LignCible)
                Range("A" & i).Copy Sheets("SYNTHESE EN COURS").Range("A" & LignCible)
                Range("B" & i).Copy Sheets("SYNTHESE EN COURS").Range("B" & LignCible)
                Range("C" & i).Copy Sheets("SYNTHESE EN COURS").Range("C" & LignCible)
                Range("D" & i).Copy Sheets("SYNTHESE EN COURS").Range("D" & LignCible)
                Range("E" & i).Copy Sheets("SYNTHESE EN COURS").Range("E" & LignCible)
                Range("F" & i).Copy Sheets("SYNTHESE EN COURS").Range("F" & LignCible)
                Range("G" & i).Copy Sheets("SYNTHESE EN COURS").Range("G" & LignCible)
                Range("H" & i).Copy Sheets("SYNTHESE EN COURS").Range("H" & LignCible)
                Range("I" & i).Copy Sheets("SYNTHESE EN COURS").Range("I" & LignCible)
                Range("J" & i).Copy Sheets("SYNTHESE EN COURS").Range("J" & LignCible)
                Range("K" & i).Copy Sheets("SYNTHESE EN COURS").Range("K" & LignCible)
                Range("L" & i).Copy Sheets("SYNTHESE EN COURS").Range("L" & LignCible)
                Range("M" & i).Copy Sheets("SYNTHESE EN COURS").Range("M" & LignCible)
                LignCible = LignCible + 1
 
                Range("A" & i).EntireRow.Delete
 
                Sheets("Edition BC").Activate
 
                End If
            Next
 
        End With
 
l = 39
 
ReDim TableauValidationBC(l)
 
End Sub

J'espère vraiment arriver à corriger les petits problème que je rencontre, car actuellement il me copie tout les données sans exception dans la feuille "synthese en cours", et oublie certaine données en copiant dans la feuille "Edition BC".

Si vous avez des suggestion, je suis preneur.

Cordialement.

[Kris41]

Je met le fichier à dispo si besoin.TABLEAU DE SUIVI GENERAL AUTO 3.xlsm