Discussion :

[EAU24]

Bonjour à tous,
Je voudrais écrire un code VBA qui me permette de copier la valeur de 2 cellules d’une feuille de calcul pour être collée sur une autre feuille de calcul et qu’à chaque fois la copie se fasse sur une ligne plus bas dans la feuille qui reçoit les informations.

Exemple :

1ère opération le 4 juin 2020 à 10h : Feuille 1 : cellules A1 et B1 copiées
Feuille 2 : la valeur des cellules A1 et B1 de la feuille 1 est collée en cellules A1 et B1 de la feuille 2

2ème opération le 4 juin 2020 à 10h15 par exemple : Feuille1 : cellule A1 et B1 copiées
Feuille 2 : la valeur des cellules A1 et B1 de la feuille 1 est collée en cellules A2 et B2
Et ainsi de suite.

J’ai essayé d’utiliser la fonction DERLIGNE mais sans succès.

Merci de votre aide

[QuestVba]

Bonjour,
As-tu lu ceci : https://www.developpez.net/forums/d4...ees-d-feuille/

Pourrais-tu nous mettre tes essais de code ?

[EAU24]

Bonjour,
As-tu lu ceci : https://www.developpez.net/forums/d4...ees-d-feuille/

Pourrais-tu nous mettre tes essais de code ?

Bonjour,
J'ai pris connaissance du contenu du lien que vous m'avez adressé mais c'est trop compliqué. J'avais commencé à écrire un code en me servant d'une macro mais j'ai laissé tombé. Je veux un module simple…. Merci quand même

[QuestVba]

Tu peux utiliser l'enregistreur de macro pour avoir une aide et ensuite, tu l'adaptes.
Montre ce que tu as fait et dis-nous où cela bloque.

[78chris]

Bonjour à tous

Tu peux aussi dans bien des cas utiliser des tableaux structurés, ce qui simplifie grandement cette problématique

[EAU24]

Tu peux utiliser l'enregistreur de macro pour avoir une aide et ensuite, tu l'adaptes.
Montre ce que tu as fait et dis-nous où cela bloque.

Ci-dessous l'essai de 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
Sub Congés()
   Dim Derligne As Long
   Dim f As Worksheet
   Set f = ThisWorkbook.Sheets("CM")
    Sheets("CALENDRIER 2020").Select
    Range("L2").Select
    Selection.Copy
    Sheets("CM").Select
    Derligne = f.Range("A" & Rows.Count).End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CALENDRIER 2020").Select
    Range("BA1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("CM").Select
    Derligne = f.Range("C" & Rows.Count).End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CALENDRIER 2020").Select
    Range("BA2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("CM").Select
    Derligne = f.Range("D" & Rows.Count).End(xlUp).Row + 1
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Set f = Nothing
End Sub

[78chris]

RE

Ceci devrait suffire

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Congés()
Dim Derligne As Long
Dim f As Worksheet
Set f = ThisWorkbook.Sheets("CM")
 
Derligne = f.Range("A" & Rows.Count).End(xlUp).Row + 1
f.Range("A" & Derligne) = Sheets("CALENDRIER 2020").Range("L2").Value
f.Range("C" & Derligne) = Sheets("CALENDRIER 2020").Range("BA1").Value
f.Range("D" & Derligne) = Sheets("CALENDRIER 2020").Range("BA2").Value
End Sub