VBA fonction Derligne

Version imprimable

04/06/2020, 09h38
EAU24

VBA fonction Derligne

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
04/06/2020, 09h45
QuestVba

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

Pourrais-tu nous mettre tes essais de code ?
04/06/2020, 09h52
EAU24

Citation:

Envoyé par QuestVba

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
04/06/2020, 10h28
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.
04/06/2020, 10h35
78chris

Bonjour à tous

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

Citation:

Envoyé par 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.

Ci-dessous l'essai de code...

Code:

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

RE

Ceci devrait suffire

Code:

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

04/06/2020, 16h32
EAU24

Je viens d'essayer, bravo! ça marche.
Merci de votre aide:)