Bonjour
On se lance !!!
suis cette procédure
ton fichier ouvert active en même temps les 2 touche alt+F11
Tu obtiens ceci :
A gauche double clique dossier feuilles dans le nom du Userforme à paramétrer ici Userform2
Puis à droite sélectionnes la fenêtre que tu souhaites travailler par exemple CP :
à gauche relèves le nom de cette fenêtre (Name) pour celle-ci c’est « TextBox5 »
Puis cliques droit sur le bouton « NOUVEAU » :
Dans le menu choisi « Code »
Dans la partie « Private Sub CommandButton2_Click() » en bas sélectionnes ces lignes de code :
If TextBox6 <> « » Then
Sheets(« proprietaire chateau coordonnée »).Range(« I » & Rows.Count).End(xlUp).Offset(1, 0) = TextBox6
End If
Fait un copier de celle-ci ou ctrl+C
en dessous après avoir réalisé un espace recopies les ou ctrl+V
Dans cette recopie modifies le nom de la fenêtre (ici TextBox6 en TextBox5) et la colonne cible à alimenter onglet « proprietaire chateau coordonnée » (« I » à « H »)
Cela doit donner ces lignes corrigées :
If TextBox5 <> « » Then
Sheets(« proprietaire chateau coordonnée »).Range(« H » & Rows.Count).End(xlUp).Offset(1, 0) = TextBox5
End If
comme ceci :
Une fois ces manipulations effectuées un coup de disquette bandeau d’Excel en haut
Tu fermes l’éditeur (croix tout en haut à droite)
Puis tu fais un essai et vérifies le résultat obtenu
Fais moi un retour
Ci-joint ton dernier fichier avec la combobox « SITE INTERNET » 2° formulaire opérationnelle
cave a vin 8.xlsm (167,8 Ko)