Bonjour,
J'essaie de faire 1 code recherchev pour trouver le résultats dans 2 feuilles après saisie d'un formulaire via 1 user forme :
- j'ai crée un onglet paramètre pour que les utilisteurs puissent ajouter ou supprimer des sociétés avec le numéro de SIREN (sheet paramètre)
- dans l'onglet "saisie", l'utilisateur ouvre 1 user forme et le combobox récupère la liste de société qu'il avait paramétré
- Après validation, je récupère la donnée de la combobox et je souhaiterai ajouter la valeur SIREN vu qu'elle ne change pas et d'indiquer qu'elle n'est pas présente si pas dans la liste
j'ai donc fait comme code que j'ai trouvé sur le net :
sub siren()
Dim plage As Range, C As Range, teste
With Sheets("saisie")
Set plage = .Range(.[A65536], .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("Paramètre")
For Each C In plage
teste = Application.VLookup(C.Value, .Range(.[B8], .Cells(.Rows.Count, 1).End(xlUp)), 2, 0)
If IsError(teste) Then
C.Offset(, 2) = "non présent"
Else
C.Offset(, 2) = tests
End If
Next C
End With
Ca ne fonctionne pas et je trouve pas de solution...quelqu’un peut m'aider ?
J'essaie de faire 1 code recherchev pour trouver le résultats dans 2 feuilles après saisie d'un formulaire via 1 user forme :
- j'ai crée un onglet paramètre pour que les utilisteurs puissent ajouter ou supprimer des sociétés avec le numéro de SIREN (sheet paramètre)
- dans l'onglet "saisie", l'utilisateur ouvre 1 user forme et le combobox récupère la liste de société qu'il avait paramétré
- Après validation, je récupère la donnée de la combobox et je souhaiterai ajouter la valeur SIREN vu qu'elle ne change pas et d'indiquer qu'elle n'est pas présente si pas dans la liste
j'ai donc fait comme code que j'ai trouvé sur le net :
sub siren()
Dim plage As Range, C As Range, teste
With Sheets("saisie")
Set plage = .Range(.[A65536], .Cells(.Rows.Count, 1).End(xlUp))
End With
With Sheets("Paramètre")
For Each C In plage
teste = Application.VLookup(C.Value, .Range(.[B8], .Cells(.Rows.Count, 1).End(xlUp)), 2, 0)
If IsError(teste) Then
C.Offset(, 2) = "non présent"
Else
C.Offset(, 2) = tests
End If
Next C
End With
Ca ne fonctionne pas et je trouve pas de solution...quelqu’un peut m'aider ?