Discussion :

[Dermochelys]

Bonjour,

Je me remet à Excel après de looooooongues années... Et je bug

J'ai un classeur avec 2 feuilles.
Je voudrais copier la valeur d'une cellule de la feuille 1 sur dix lignes de la colonne B de la feuille 2.
Puis refaire ça pour une autre cellule de la feuille 1 (mais cette fois ci dans la colonne A)
Puis copier une plage de cellule de la feuille 1 à copier dans la feuille 2 à partir de la colonne C (il y a 10 lignes dans cette plage de cellules)

Mon code qui ne fonctionne pas

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 Bouton2_Cliquer()
Dim der_ligne As Long
Dim i As Long
 
Dim ws_1 As Worksheet   'feuille du Planificateur annuel
Dim ws_2 As Worksheet   'feuille de DBActivités
Dim ws_3 As Worksheet   'feuille cachée avec les calculs, liste de valeurs pour les listes déroulantes, les critères de filtres etc...
 
'définir les feuilles de données
Set ws_1 = Worksheets(1)    'feuille du Planificateur annuel
Set ws_2 = Worksheets(2)    'feuille de DBActivités
Set ws_3 = Worksheets(3)
 
'identifier la dernière ligne remplie du tableau DBActivités (feuille 2) dans lequel on va coller les infos de la feuille 1
der_ligne = ws_2.Cells(Rows.Count, 1).End(xlUp).Row
 
'copier les infos de rdv (plage P6:V17 de la feuille 1) dans la feuille 2 (en C4:I13)
For i = 1 To 10
    ws_1.Range(ws_1.Cells(4, 17)).Copy ws_2.Range(ws_2.Cells(der_ligne + 1, 2)) 'copie de la valeur de la date de la cellule Q4 de la feuille 1 vers la feuille 2, colonne B et sur 10 lignes
    ws_1.Range(ws_1.Cells(4, 19)).Copy ws_2.Range(ws_2.Cells(der_ligne + 1, 1))    'copie de la valeur de l'intervenant de la cellule S4 de la feuille 1 vers la feuille 2, colonne A et sur 10 lignes
    ws_1.Range(ws_1.Cells(i, 16), ws_1.Cells(i, 23)).Copy ws_2.Range(ws_2.Cells(der_ligne + 1, 3), ws_2.Cells(der_ligne + 1, 9))'copie de la plage P6:V17 vers la feuille 2
Next
 
End Sub

Avez-vous des suggestions?
Je ne comprends pas ce que je ne fait pas correctement dans l'utilisation des range et autres Cells
Pourtant ce n'est pas un code compliqué...

[a_diard]

Pour la premiere ligne il me semble que ceci:

Code :

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

ws_2.Cells(der_ligne + 1, 2) = ws_1.Cells(4, 17) 'copie de la valeur de la date de la cellule Q4 de la feuille 1 vers la feuille 2, colonne B et sur 10 lignes

suffirait

dans la boucle For i = 1 To 10

la date est copiée 10 fois dans la méme cellule

der_ligne est chargé avant la boucle et ne change pas de valeur.



a tester et a généraliser si c'est le cas.

je pense que le :

Code :

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

For i = 1 To 10

n'est pas utile, pourquoi ne pas copier les 10 lignes en une seule fois.

[Dermochelys]

Bonjour a_diard,

Merci pour ton retour et suggestions.
Pour la première ligne, je vais tester. Mais en effet, ça me semble plus simple.
Concernant la boucle, je vais introduire une petite modif pour que la valeur de la cellule de la feuille 1 soit repliquée dans les cellules de la colonne souhaitée.

Par contre je ne comprends pas ta dernière question... Comment copier les 10 lignes en une fois?

[a_diard]

avec ceci:

Tu colle la date sur 10 lignes sur la feuille 2

ws_2.Range(ws_2.Cells(der_ligne + i, 2), ws_2.Cells(der_ligne + i + 9, 2)) = ws_1.Cells(4, 17) 'copie de la valeur de la date de la cellule Q4 de la feuille 1 vers la feuille 2, colonne B et sur 10 lignes

[a_diard]

Je pense que ceci doit repondre a ton besoin:

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
Sub Bouton2_Cliquer()
Dim der_ligne As Long
Dim i As Long
 
Dim ws_1 As Worksheet   'feuille du Planificateur annuel
Dim ws_2 As Worksheet   'feuille de DBActivités
Dim ws_3 As Worksheet   'feuille cachée avec les calculs, liste de valeurs pour les listes déroulantes, les critères de filtres etc...
 
'définir les feuilles de données
Set ws_1 = Worksheets(1)    'feuille du Planificateur annuel
Set ws_2 = Worksheets(2)    'feuille de DBActivités
Set ws_3 = Worksheets(3)
 
'identifier la dernière ligne remplie du tableau DBActivités (feuille 2) dans lequel on va coller les infos de la feuille 1
der_ligne = ws_2.Cells(Rows.Count, 1).End(xlUp).Row
 
ws_2.Range(ws_2.Cells(der_ligne + 1, 2), ws_2.Cells(der_ligne + 10, 2)) = ws_1.Cells(4, 17) 'copie de la valeur de la date de la cellule Q4 de la feuille 1 vers la feuille 2, colonne B et sur 10 lignes
    ws_2.Range(ws_2.Cells(der_ligne + 1, 1), ws_2.Cells(der_ligne + 10, 1)) = ws_1.Cells(4, 19)   'copie de la valeur de l'intervenant de la cellule S4 de la feuille 1 vers la feuille 2, colonne A et sur 10 lignes
      ws_1.Range(ws_1.Cells(1, 3), ws_1.Cells(10, 5)).Copy ws_2.Range(ws_2.Cells(der_ligne + 1, 3), ws_2.Cells(der_ligne + 10, 5)) 'copie une Zone de 10 lignes et 2 colonnes de Feuille1 ("C1:D10")vers feuille2 zone décalée de 10 lignes à chaque fois.
End Sub

[Dermochelys]

Merci a_diard !!