Probleme avec code vba

Fermé

anthonys006 Messages postés 8 Date d'inscription lundi 10 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018 - Modifié le 10 déc. 2018 à 14:19
anthonys006 Messages postés 8 Date d'inscription lundi 10 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018 - 14 déc. 2018 à 09:51

Bonjour,

bonjour jaimerai faire une msgbox pour modifier un labelle dans un serform et qui change aussi dans ma cellule

puis quand je ferme ou ouvre a nouveau mon user form le nom a pas change

exemple :

Private Sub Label1_Click() 

Label1.Caption = feuil1.Range("A5") 

Label1.Caption = InputBox("Entrez le nouveau nom du champ """ & feuil1.Range("A5") & """ :", "Modifier", Label1.Caption) 

'InputBox ( invite [ , titre ] [ , défaut ] [ , xpos ] [ , ypos ] [ , fichier d'aide ] [ , contexte ] ) 

If Label1.Caption <> "" Then 

feuil1.Range("A5") = Label1.Caption 

Label1.Caption = feuil1.Range("A5") 

End If 

End Sub

EDIT : Ajout des balises de code

merci de votre aide

A voir également:

Probleme avec code vba
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Code activation windows 10 - Guide
Code gta 4 ps4 - Guide

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38446 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 28 février 2025 4 737
10 déc. 2018 à 14:20

Bonjour,

Je ne suis pas certain d'avoir compris la question.....
Mais dans le doute.... il faut charger le contenu à afficher à l'ouverture du Userform. Pas uniquement lors du clic sur ton label...
Donc ta ligne

Label1.Caption = feuil1.Range("A5")

devrait se situer avant le Userform Show
ou au moins dans le Userform_initialize()

anthonys006 Messages postés 8 Date d'inscription lundi 10 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018
Modifié le 10 déc. 2018 à 14:43

je comprend pas vraiment ce que tu veuc dire
merci je suis debutant du coup je regarde sur internet beaucoup de chose qui minteresse pour faire mon propre userform

jordane45 Messages postés 38446 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 28 février 2025 4 737
10 déc. 2018 à 14:55

Si j'ai du mal à comprendre ta question ... et toi à comprendre mes réponses... on est pas prêt d'y arriver....
Donc commence par reformuler ta question en essayant d'expliquer le plus clairement possible ce qui ne "fonctionne pas" selon toi.
Pense que nous ne sommes pas dans ta tête ni devant ton écran.. tu dois donc décrire ce qu'il se passe et nous dire en quoi cela ne correspond pas au comportement attendu d'après toi.

anthonys006 Messages postés 8 Date d'inscription lundi 10 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018
Modifié le 10 déc. 2018 à 21:35

je voudrais modifier le nom de mon label1 dans mon userform avec ume msgbox puis donne le meme nom que le lebel directement a la cellule A5
jusque la jai reussi mes quand je ferme mon userform et que je l'ouvre a nouveau le non ne reste pas

jordane45 Messages postés 38446 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 28 février 2025 4 737 > anthonys006 Messages postés 8 Date d'inscription lundi 10 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018
10 déc. 2018 à 21:33

Ca c'est ce que fait déjà ton code non ?
Donc quel est le souci ?

anthonys006 Messages postés 8 Date d'inscription lundi 10 décembre 2018 Statut Membre Dernière intervention 14 décembre 2018
10 déc. 2018 à 21:56

le non ne reste pas quand je ferme luserform et quand je clic annuler il ce vide au lieux de juste pas modifier

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

sertissage des cables rj45

Réinitialisation d'un téléphone mobile chinois avec touche

Méthode find dans VBA - Recherche de données sous Excel

renvoi d'appel (code ) Mobilis ?