Au secour, Mise à jour d'une feuille

[Foufoudora]

Bonjour, j'ai besoin de votre aide S.V.P.

j'ai une feuille "Saisie" qui contient plusieurs lignes de saisies sur 15 colonne.
Les données saisies devraient, après un simple click sur un bouton, s'enregistrer dans une autre feuille "Données" à la suite des données saisies antérieurement.
Ma question existe-t-il une façon de le faire sous Macros ou VBA ???

C'est urgent

Merci par Avance

Foufoudora

 

[ChTi160]

Re : Au secour, Mise à jour d'une feuille

Salut Foufoudora 😛

juste un petit exemple en pièce jointe

Regarde la pièce jointe TransfertDonnees.zip

Bonne journée 😀

 

[Foufoudora]

Re : Au secour, Mise à jour d'une feuille

Merci Beaucoup pour ton aide,
par contre j'ai changer dans ton programme le chiffre 3 nombre de colonnes par 18 car ma feuille "donnée" comporte 18 colonnes et ca bloque.

Voir Fichier ci-Joint.

N.B: j'ai des formules de calcul et RECHERCHEV dans différents colonne et je ne sais pas si on peut les intégrer dans le programme.

merci par Avance

Cordialement

Foufoudora

 

[ChTi160]

Re : Au secour, Mise à jour d'une feuille

Salut Foufoudora
Arffff
il y a déjà le fait que la feuille ne s'appelle pas Données dans ton fichier mais Donnée

ensuite il n'y pas de donnée pour tester
de plus ta feuille est protègée ce qui change tout lol
tu parles de formules ????? etc etc
donc il va falloir expliquer un peu lol sinon

bonne fin de Soirée

 

[Foufoudora]

Re : Au secour, Mise à jour d'une feuille

Salut JM,
Merci pour ces précisions. j'ai changé dans le code le nom de la feuille "donnée". Et quand j'ote la protection ca fonctionne par contre il copie les titres de chaque colonne aussi par exemple "DAte, N°OF, etc" je pense il y a un décalage entre la feuille "donnée et traitement". j'aimerai bien conserver le format de "Donnée" et commencer l'extraction des saisies de la plage "A4" vers A2 dans "traitement".

Merci de me regler ce petit problème !!!
je suis un peu difficile.

Foufoudora

 

[ccpapy]

Re : Au secour, Mise à jour d'une feuille

bonjour à tous
dans la partie de ton code
With Worksheets("Donnée") à TabTemp
tu remplaces les 2 par 4 ainsi tu copieras à partit de A4
pour ce qui est de la protection tu peux ecrire
ActiveSheet.Unprotect en début de code ( après With Worksheets("Donnée") )
et ActiveSheet.Protect en fin avant de travailler sur la feuille traitement
bonne journée

 

[ChTi160]

Re : Au secour, Mise à jour d'une feuille

Salut Foufoudora
bonjour ccpapy
bonjourle Forum
voilà si besoin est la procèdure modifiée lol
merci ccpapy

Private Sub CommandButton1_Click()
Dim TabTemp As Variant
Dim Derlgn As Integer, Derlgn2 As Integer, L As Integer
Dim C As Byte
With Worksheets("Donnée")
.Unprotect
Derlgn = .Range("B65536").End(xlUp).Row 'B car il y a des formules dans la colonne A
If Derlgn = 3 Then Derlgn = 4
TabTemp = .Range(Cells(4, 1), Cells(Derlgn, 18)).Value 'ici le 3 représente la derniere colonne prise en compte
.Range(Cells(4, 1), Cells(Derlgn, 18)).ClearContents 'ici aussi
.Protect
End With
With Worksheets("Traitement")
.Unprotect
Derlgn2 = .Range("A65536").End(xlUp).Row 'détecte la derniere ligne non vide
For L = 1 To UBound(TabTemp, 1) 'pour chaque ligne du tableau
For C = 1 To UBound(TabTemp, 2) 'pour chaque Colonne du tableau
If TabTemp(1, 1) = "" Then Exit Sub 'On sort si pas de données
.Cells(Derlgn2 + L, C) = TabTemp(L, C) 'ici on colle les données
Next
Next
.Protect
End With
End Sub

bon il y a des formules donc il faut voir car la macro efface la plage de la feuille Donnée ????
.Range(Cells(4, 1), Cells(Derlgn, 18)).ClearContents 'ici aussi donc a supprimer
je regarderai Lol
Bonne journée

 

[Foufoudora]

Re : Au secour, Mise à jour d'une feuille

Salut Papy JM,

Encore Un grand grand MERCI pour toi, tu es le meilleur et bien sûr un amour.

Foufoudora🙂

 

[ChTi160]

Re : Au secour, Mise à jour d'une feuille

Salut Foufoudora
bonjour le Fil
comme promis une premiere approche pour le sous totaux par date 😛

il faut que tu m'expliques ce que tu veux faire pour ce qui est du recapitulatif de l'année (Merci)

bon WeekEnd 😀

Regarde la pièce jointe Projet_excel_downloadV1 .zip