zone de liste, selectionner feuille

[pascal21]

bonsoir le forum
je viens à nouveau solliciter votre aide en vue de la réalisation d'un nouveau classeur de pointages des heures pour mon patron
je cherche à envoyer des données dans une feuille selectionnée par une zone de liste
j'ai une feuille "saisie" avec une zone de liste contenant les noms des employés
des feuilles nommées au nom de chaque employé
plus de détails dans le pièce jointe
merci

 

[jp14]

Re : zone de liste, selectionner feuille

Bonjour

Ci joint une macro à tester

JP

 

[pascal21]

Re : zone de liste, selectionner feuille

bonsoir jp14
tu as compris le principe de ce que je voulais (tu as du mérite, je me suis relu et je manquais de clarté)
quel est l'évennement qui déclenche la macro
ne serait-il pas possible que ça soit un bouton "validation" par exemple
ce bouton copierait les données inscritent dans la feuille choisie par la zone de liste et effacerait ensuite ces données dans la feuille "saisie" pour à nouveau pouvoir inscrirent d'autres données pour dautres employés
il faudrait que les nouvelles données recoltées se mettent à la suite de données anciennes dans les feuilles des employés
pffffffffffffff!!!!!!!!!!!!! j'arrive po à être clair ce soir

 

[jp14]

Re : zone de liste, selectionner feuille

Bonsoir

Ci joint la macro modifiée avec deux boutons un pour copier un pour effacer ( au cas ou).

JP

 

[pascal21]

Re : zone de liste, selectionner feuille

bonsoir
ça ne fonctionne pas comme je voudrais
si je mets des données colonnes a,b,c de la feuille de saisie elles se rangent les unes à la suite des autres uniquement colonne a
chez moi lorsque je valide il faut environ 4 ou 5 secondes voir plus pour que la macro fasse son travail
il n'y avait pas ce phénomène avec ton 1er exemple
j'ai essayé de reprendre un peu du code de ce 1er classeur mais sans grand résultat
autre chose si je laisse des cellules non remplis la macro n'en tient pas compte et regroupe tout

 

[pascal21]

Re : zone de liste, selectionner feuille

bonjour
je fais remonter le fil et je vais au boulot
si vous avez une solution n'hésitez pas
merci

 

[jp14]

Re : zone de liste, selectionner feuille

Bonjour

ça ne fonctionne pas comme je voudrais
si je mets des données colonnes a,b,c de la feuille de saisie elles se rangent les unes à la suite des autres uniquement colonne a

Dans le fichier de départ les données (dates) se trouvaient dans la colonne A, pour B et C ?
Les données de la ligne 5 de "feuille de saisie" existaient dans les feuilles de destination en ligne 3.
Quelle est la ligne de départ 5 ou 6 ?
Il suffit de modifier ".Range("a6:a" & " départ ligne 6 ou ".Range("a5:a" & " départ ligne 5

Concernant le rangement j'ai fait ce qui était demandé.

il faudrait que les nouvelles données recoltées se mettent à la suite de données anciennes dans les feuilles des employés

chez moi lorsque je valide il faut environ 4 ou 5 secondes voir plus pour que la macro fasse son travail

Les deux macros sont identiques dans leur structure, sauf pour le numéro de la ligne de destination

autre chose si je laisse des cellules non remplis la macro n'en tient pas compte et regroupe tout

L'absence d'information n'est pas toujours un information.

De ce que je comprends il faut combiner les deux réponses.

JP

 

[pascal21]

Re : zone de liste, selectionner feuille

bonsoir
merci jp14 pour ta patience
ce qui est inscrit colonne a de la feuille "saisie" doit se retrouver colonne a de le feuille ""destination"" la colonne b dans la colonne b et colonne c dans le colonne c de la feuille destination et ainsi de suite (pour l'insta,t dans ce classeur exemple on va se contenter de 3 colonnes c'est bien le diable si je n'arrive pas par la suite à l'integrer dans mon classeur final)
ensuite il se peut que des lignes ne soient pas renseignées il faudrais bien sure que cet ordre soit respecté
je viens de me souvenir que j'ai un code (de jeanpierre il me semble bien)qui fait cela dans un de mes classeurs
mais je n'arrive pas à l'adapter j'en mets une copie

Sub effacer_données()
Dim i As Integer
If MsgBox("Vous allez sauvegarder dans les feuilles 'recap'" & vbNewLine & "           et effacer les données " & vbNewLine & "" & vbNewLine & " Veuillez confirmer SVP", vbOKCancel + vbExclamation, "Suppression") <> vbOK Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To 10
Sheets(i + 10).Visible = True
Sheets(i + 10).Select
Sheets(i).Range("A4:U39").Copy ' copie des valeurs feuil(i)
Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets(i).Range("C4:K38").ClearContents
Sheets(i + 10).Visible = False
Sheets(21).Visible = False
Next i
Sheets(1).Range("b4").ClearContents
Sheets(1).Select: Range("c4").Select

Application.ScreenUpdating = True
End Sub
Sub CopieCel(ByVal Target As Range)
  Dim NCol As Integer
  NCol = Target.Column
  Sheets(21).Cells(4, NCol).Value = Target
  'MsgBox "Copie de : " & Target & " terminé !"
End Sub

celui ci se trouve dans un module
elle a pour but de copier une zone de cellules puis de la réécrire dans une feuille de sauvegarde
il y a 10 feuilles qui doivent etre recopiées dans 10 autres
effacement des données etc.....
ensuite ce code dans chaque feuille de destination

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  Call CopieCel(Target)
  Cancel = True
End Sub

si quelqu'un arrive à modifier pour mon classeur
merci d'avance

 

[jp14]

Re : zone de liste, selectionner feuille

Bonsoir

Ci joint une nouvelle macro :
Première ligne de destination 3
If dl1 < 3 Then dl1 = 3 ' a modifier


A tester

JP

 

[pascal21]

Re : zone de liste, selectionner feuille

bonsoir jp14 et merci
tu as su déchiffrer ma demande
ça fonctionne très bien
bonne soirée