Un bouton pour inserer des données dans deux feuilles
Bonjour à tous !
Je suis en treain de me faire un petits tableaux pour gérer les heures sup de mes agents.
j'ai donc créer un petit formulaire avec un bouton qui au clique envoie les données sur l'onglet qui à pour nom le nom de l'agent qui fait les heures.
je voudrais qu'au même clique les données soient envoyées sur une feuille récapitulative nommés recap.
dans le fonctionnement un onglet par agents qui ne contient que les remplacement fait par cet agent cette phase là marche et un onglet qui récupère toutes les données rentrées.
je vous joint le fichier si quelqu'un à un peu de temps pour m'aider je lui en serait très reconnaissant.
Bonjour Team, bonjour le forum,
Essaie comme ça :
Private Sub BtnCopier_Click()
Dim lign As Variant
Dim OA As Worksheet
Dim RE As Worksheet
Dim LOA As Range
Dim LRE As Range
Set OA = Worksheets(Range("G11").Value)
Set RE = Worksheets("Recap")
LOA = OA.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
LRE = RE.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
With Sheets("Remplacement-Recup")
OA.Range("A" & LOA).Value = .Range("G9").Value
OA.Range("B" & LOA).Value = .Range("D9").Value
OA.Range("C" & LOA).Value = .Range("G11").Value
OA.Range("D" & LOA).Value = .Range("D13").Value
OA.Range("E" & LOA).Value = .Range("G14").Value
OA.Range("F" & LOA).Value = .Range("F16").Value
OA.Range("H" & LOA).Value = .Range("F18").Value
OA.Range("J" & LOA).Value = .Range("F20").Value
OA.Range("L" & LOA).Value = .Range("F22").Value
OA.Range("N" & LOA).Value = .Range("F24").Value
OA.Range("O" & LOA).Value = .Range("F26").Value
RE.Range("A" & LRE).Value = .Range("G9").Value
RE.Range("B" & LRE).Value = .Range("D9").Value
RE.Range("C" & LRE).Value = .Range("G11").Value
RE.Range("D" & LRE).Value = .Range("D13").Value
RE.Range("E" & LRE).Value = .Range("G14").Value
RE.Range("F" & LRE).Value = .Range("F16").Value
RE.Range("H" & LRE).Value = .Range("F18").Value
RE.Range("J" & LRE).Value = .Range("F20").Value
RE.Range("L" & LRE).Value = .Range("F22").Value
RE.Range("N" & LRE).Value = .Range("F24").Value
RE.Range("O" & LRE).Value = .Range("F26").Value
.Range("G9").Value = ""
.Range("D9").Value = ""
.Range("G11").Value = ""
.Range("D13").Value = ""
.Range("G14").Value = ""
.Range("F16").Value = ""
.Range("F18").Value = ""
.Range("F20").Value = ""
.Range("F22").Value = ""
.Range("F24").Value = ""
.Range("F26").Value = ""
End With
End Subbonjour et merci de t’être pencher sur le sujet
en mettant ton code j’obtiens une erreur d'execution 91
variable d'objet ou variable de bloc with non défini
quand je clique sur debogage la ligne
LOA = OA.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
et surligner en jaune
Re,
Oui désolé, j'ai changé d'avis au dernier moment et j'ai oublié de modifier la déclaration des variables. Remplace les deux lignes :
Dim LOA As Range
Dim LRE As Rangepar :
Dim LOA As Integer
Dim LRE As Integerrebonjour thauthème
pas besoins de t'excuser tous fonctionne correctement
bonne journée