Transfert de donnees

[MISTERJUNGLE]

Bonjour le forum
ci joint un fichier avec une macro module 14 qui fonctionne tres bien avec une personne et je n'arrive pas a la refaire pour plusieurs personnes
en vous remerciant pour votre aide

 

[MISTERJUNGLE]

Re : Transfert de donnees

Alors le forum
Personne pour me venir en aide ??

 

[cdivad]

Re : Transfert de donnees

Salut MisterJungle,

Peux tu expliciter un peu ce que tu souhaites faire?

 

[kjin]

Re : Transfert de donnees

Bonsoir,

ci joint un fichier avec une macro module 14 qui fonctionne tres bien avec une personne

Mouais, j'en suis beaucoup moins convaincu...

Sub Valider()
Dim rng As Range, c As Range, ws As Worksheet, dl As Long
Application.ScreenUpdating = False
With Sheets("FORMULAIRE")
    Set rng = .Range("A4:A" & .Range("A65000").End(xlUp).Row)
    For Each c In rng
        If c <> "" Then
            On Error Resume Next
            Set ws = Sheets(CStr(c))
            On Error GoTo 0
            If Not ws Is Nothing Then
                With ws
                    dl = .Range("A65000").End(xlUp).Row + 1
                    .Range("A" & dl) = VBA.Now
                    .Range("B" & dl).Resize(1, 7).Value = c.Offset(, 1).Resize(1, 7).Value
                End With
            End If
            Set ws = Nothing
        End If
    Next
End With
Application.ScreenUpdating = True

End Sub

A toi d'adapter compte tenu de l'organisation des tableaux pour le moins cahotique
A+
kjin

 

[MISTERJUNGLE]

Re : Transfert de donnees

OK MERCI CDIVAD
faisons bref
sur la feuille nommee formulaire se trouve une liste de nom ( alain, luc...) qui correspondent aux feuille du classeur
je voudrais rentrer les heures sur le formulaire et que chaque ligne soit retranscrite sur la feuille correspond au nom. 1 feuille ca va , 2...... ca ne va plus
merci pour ton aide

 

[MISTERJUNGLE]

Re : Transfert de donnees

Bonsoir kjin
pourquoi "l'organisation des tableaux pour le moins cahotique"
eclaire moi si possible

 

[kjin]

Re : Transfert de donnees

Re,
Regardes tes entêtes de colonnes...
J'ai mis d'office la date du jour, mais peut-être ce n'est pas le cas...
A+
kjin

 

[MISTERJUNGLE]

Re : Transfert de donnees

RE,KJIN
je prefere la formule sans la date automatique car je rentre parfois les heures
en fin de semaine ,ou quand j'en ai le temps
dois je lever ce morceau de macro pour que cela fonctionne sans la date
.Range("A" & dl) = VBA.Now

 

[kjin]

Re : Transfert de donnees

Re,

dois je lever ce morceau de macro pour que cela fonctionne sans la date

Oui, et redimensionne la plage à transférer...
Reviens avec un fichier corrigé (formulaire) si tu ne t'en sort pas
A+
kjin

 

[MISTERJUNGLE]

Re : Transfert de donnees

MERCI KJIN A+
je vais quitter mon travail vers 20h00
je vois en rentrant au dom
un grand merci a MONTPELLIER