chris6999
XLDnaute Impliqué
Bonjour le FORUM
Toujours sur mon projet de suivi d'activité qui avance à grand pas à votre aide.
Je bloque sur un problème que j'ai essayé de résoudre en m'inspirant des codes qui m'avaient déjà été transmis via ce Forum mais sans succès.
Je suis dans une fiche (feuille Fiche SAISIE).
J'ai une cellule où je peux sélectionner le nom de l'agent G2
J'ai une cellule où je saisis une date de journée K2
Et pleins de cases à remplir colonne C, I, M
Le principe :
Lorsque pour un agent, je valide en K2 une date déjà connue dans la colonne A de la feuille Agent, un userform me demande ce que je souhaite faire (bon ça c ok).
- Choisir une autre date : ok jusque là pas de problème
- Faire remonter dans ma Fiche SAISIE les données correspondant à la même date dans ma feuille agent.
C'est là où je coince....
J'ai essayé le code suivant mais j'obtiens une erreur 424...
Private Sub CommandButton2_Click()
If Target.Address = "$K$2" Then
'soit c= cherche dans la feuille Agent1 colonne A (la colonne où se trouve la valeur recherchée soit égale à K2)
Set c = Sheets("Agent1").Columns("A").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole) 'voir aide a Find et aussi FindNext (bien que pas utilisé ici)
' si l'on a trouvé
If Not c Is Nothing Then
'remplit les champs données salarié
' C33 = valeur de la première colonne après A
Range("C33") = c.Offset(0, 1)
Range("C35") = c.Offset(0, 2)
Range("I33") = c.Offset(0, 3)
Range("I35") = c.Offset(0, 4)
Range("M33") = c.Offset(0, 5)
Range("M35") = c.Offset(0, 6)
End If
End If
End Sub
Je suis sûre que cela ne tient pas à grand chose mais vu mon niveau VBA ce petit rien est une montagne.
Si quelqu'un ne profite pas de l'été indien ce dimanche...
Toujours sur mon projet de suivi d'activité qui avance à grand pas à votre aide.
Je bloque sur un problème que j'ai essayé de résoudre en m'inspirant des codes qui m'avaient déjà été transmis via ce Forum mais sans succès.
Je suis dans une fiche (feuille Fiche SAISIE).
J'ai une cellule où je peux sélectionner le nom de l'agent G2
J'ai une cellule où je saisis une date de journée K2
Et pleins de cases à remplir colonne C, I, M
Le principe :
Lorsque pour un agent, je valide en K2 une date déjà connue dans la colonne A de la feuille Agent, un userform me demande ce que je souhaite faire (bon ça c ok).
- Choisir une autre date : ok jusque là pas de problème
- Faire remonter dans ma Fiche SAISIE les données correspondant à la même date dans ma feuille agent.
C'est là où je coince....
J'ai essayé le code suivant mais j'obtiens une erreur 424...
Private Sub CommandButton2_Click()
If Target.Address = "$K$2" Then
'soit c= cherche dans la feuille Agent1 colonne A (la colonne où se trouve la valeur recherchée soit égale à K2)
Set c = Sheets("Agent1").Columns("A").Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole) 'voir aide a Find et aussi FindNext (bien que pas utilisé ici)
' si l'on a trouvé
If Not c Is Nothing Then
'remplit les champs données salarié
' C33 = valeur de la première colonne après A
Range("C33") = c.Offset(0, 1)
Range("C35") = c.Offset(0, 2)
Range("I33") = c.Offset(0, 3)
Range("I35") = c.Offset(0, 4)
Range("M33") = c.Offset(0, 5)
Range("M35") = c.Offset(0, 6)
End If
End If
End Sub
Je suis sûre que cela ne tient pas à grand chose mais vu mon niveau VBA ce petit rien est une montagne.
Si quelqu'un ne profite pas de l'été indien ce dimanche...
Pièces jointes
Dernière édition: