Bonsoir, merci de votre réponse. Je testerai votre proposition que je cherchais à écrire depuis 24h...vu que je ne connais pas du tout "Environ(..."
Dans l'attente, j'ai trouvé un bout de code, sur le forum(
Lien supprimé), que j'ai arrangé comme cela:
- Dim Sh As Worksheet
- On Error Resume Next
- Set Sh = Sheets(choixonglet.Value)
- If Err Then MsgBox "Feuille introuvable", 48: choixonglet.DropDown: Exit Sub 'en cas d'entrée manuelle incorrecte
- On Error GoTo 0
- Sh.Visible = True 'en cas de feuille masquée
- Sh.Activate
- Set rng = Range("B2")
- ActiveCell.End(xlDown).Select
- i = rng.Rows.Count + 1
- Sh.Cells.Cells(i, 3) = Listing.txtNom
où choixonglet est une liste déroulante du formulaire,
où Listing.txtNom est l'un des champs du formulaire.
Là où ça marche moins bien, à force de triturer les codes c'est au niveau des lignes 8, 9 et 10....mais pour le reste c'est tout bon.
Merci encore ! bonne nuit