Y compris Power BI, Power Query et toute autre question en lien avec Excel
-
Jers19
- Membre fidèle

- Messages : 295
- Appréciations reçues : 27
- Inscrit le : 14 septembre 2017
- Version d'Excel : 2010
Message
par Jers19 » 23 janvier 2018, 20:24
Alexandre
Voici ton code modifié.
Private Sub MAJ_PAC_Click()
Dim I As Integer ' Compteur
Dim N As Integer ' Colonne où coller
Dim M As Integer ' Colonne où copier
' Va chercher et ouvre le doc de PAC 2018
Workbooks.Open ("H:\DXA-DXB-SST\S-87 - Plan d'amélioration continue (PAC)\s_87_plan_amelioration_continue_DXA_3104_Varennes.xlsm")
N = 7
M = 29
For I = 1 To N+1
If Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Value <> "" Then
If Workbooks("Tableau de bord Varennes_2018.xlsm").Sheets("Tableau de bord").Cells(M, 2).Value <> "" Then
Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Copy
Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Cells(M, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
M = M + 1
Else
Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Rows(M).Insert Shift:=xlUp
Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Copy
Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Cells(M, 2).PasteSpecial Paste:=xlPasteValues
M = M + 1
End If
End If
Next I
Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes.xlsm").Close
End Sub
A+

-
Jers19
- Membre fidèle

- Messages : 295
- Appréciations reçues : 27
- Inscrit le : 14 septembre 2017
- Version d'Excel : 2010
Message
par Jers19 » 23 janvier 2018, 20:41
Petite correction
Private Sub MAJ_PAC_Click()
Dim I As Integer ' Compteur
Dim N As Integer ' Colonne où coller
Dim M As Integer ' Colonne où copier
' Va chercher et ouvre le doc de PAC 2018
Workbooks.Open ("H:\DXA-DXB-SST\S-87 - Plan d'amélioration continue (PAC)\s_87_plan_amelioration_continue_DXA_3104_Varennes.xlsm")
N = 7 (considérant que la 1ere cellule à copier se situe en ligne 7)
M = 29
For N = 7 To (nb de lignes à parcourir)
If Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Value <> "" Then
If Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Cells(M, 2).Value <> "" Then
Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Copy
Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Cells(M, 2).PasteSpecial Paste:=xlPasteValues
M = M + 1
Else
Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Rows(M).Insert Shift:=xlUp
Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes").Sheets("PAC").Cells(N, 1).Copy
Workbooks("Tableau de bord Varennes_2018").Sheets("Tableau de bord").Cells(M, 2).PasteSpecial Paste:=xlPasteValues
M = M + 1
End If
End If
Next N
Workbooks("s_87_plan_amelioration_continue_DXA_3104_Varennes.xlsm").Close
End Sub
-
AlexandreR
- Jeune membre

- Messages : 37
- Inscrit le : 15 janvier 2018
- Version d'Excel : 2010
Message
par AlexandreR » 23 janvier 2018, 21:56
Merci beaucoup pour ton aide!
-
-
- 5 Réponses
- 238 Vues
-
Dernier message par bigdaddy154
13 septembre 2015, 15:02
-
-
- 9 Réponses
- 254 Vues
-
Dernier message par cyrbabe
12 mai 2014, 20:45
-
-
Graphique a longueur variable
Réponses : 3
par
Cabrinha » 5 janvier 2017, 18:30 » dans
Excel - VBA
Bonjour a tous,
Je souhaite faire un diagramme (type bâton) avec 2 séries.
Je peux avoir un nombre total de valeurs par série de 133.
Comme la plupart du temps je n'ai qu'une dizaine de valeurs,...
- 3 Réponses
- 131 Vues
-
Dernier message par DjiDji59430
6 janvier 2017, 15:50
-
-
menu déroulant à longueur variable
Réponses : 2
par
Sam-Casey » 21 janvier 2018, 20:21 » dans
Excel - VBA
Bonjour, bonsoir,
Je cherche à créer un liste qui aurait un menu déroulant à longueur variable .
En effet, quand je sélectionne une valeur dans une de mes 12 cases de choix, cette valeur disparaît...
- 2 Réponses
- 96 Vues
-
Dernier message par Sam-Casey
21 janvier 2018, 20:56
-
-
Gestionnaire nom à longueur variable
Réponses : 16
par
thomas67 » 10 février 2017, 18:49 » dans
Excel - VBA
Bonjour,
dans le gestionnaire de noms j'ai défini une zone:
Cependant quand je vais ajouté de ligne ça ne serai plus 12 mais 25, 50....
Comment modifier pour prendre en compte une longueur...
- 16 Réponses
- 571 Vues
-
Dernier message par MFerrand
19 mars 2017, 16:28
-
-
Sélection d'une plage de longueur variable
Réponses : 4
par
Pikapi27 » 22 juillet 2015, 12:23 » dans
Excel - VBA
Bonjour à tous !
J'ai un soucis avec la programmation d'une macro et ayant déjà eu des réponses positives sur ce forum pour un autre problème, j'ai décidé de vous demander conseil après avoir...
- 4 Réponses
- 717 Vues
-
Dernier message par h2so4
22 juillet 2015, 18:05