Contenu récent par Tom_des

Bonjour, Dans d'anciens programmes l'affichage ne fonctionnait pas (il ne se produisait aucun changement sur la feuille), donc j'ai testé de tout cacher puis de tout afficher et là c'était bon. J'ai depuis gardé cette habitude .... Si tout fonctionne chez vous, de quoi peut venir l'erreur si...

Bonjour, J'ai une erreur de type 1004 dès l'utilisation de la propriété hidden. Cela ne semble pas être une erreur de protection de feuille (en vérifiant suite à la lecture de plusieurs forums). Je ne comprends donc pas d'où sort ce problème. Je vous ai mis qu'un extrait du code, dites moi si...

Bonjour, dans la continuité, si on rajoute des éléments au fur et à mesure dans la listebox, comment faire pour que ceux-ci soit les uns en dessous des autres ? Pour l'instant, j'importe dans ma liste box une seule cellule dans laquelle j'ai plusieurs informations les unes en dessous des...

Tout fonctionne, merci beaucoup. Il me reste plus qu'à trouver comment afficher les commentaires les uns en dessous des autres dans la listebox ...

Merci beaucoup pour le fichier. Je souhaite les récupérées pour pouvoir consulté ce qui a été dit précédemment. Ainsi sur la cellule j'ai le dernier commentaire en date et si je double click dessus je peux en ajouter un nouveau ou consulter les anciens (pour suivre les évolutions par exemple)...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range Dim ws As Worksheet Dim uf As New UserForm1 ' Assurez-vous que le nom du UserForm est correct ' Définir la plage à surveiller Set ws = ThisWorkbook.Sheets("Synthesis") Set...

J'ai essayé mais cela ne fonctionne pas, merci quand même !

Bonjour, je viens de trouver une semblant de solution je pense. Mes cellules étaient fusionnées (par exemple ma cellule D25 recouvre en réalité les colonnes D à G et les lignes 25 et 26). En enlevant la fusion je n'ai plus ce problème. J'ai donc deux questions supplémentaires. Est-ce qu'il...

Cela ne marche toujours pas, j'ai toujours la même incompatibilité ... Merci pour votre aide, si vous avez d'autres idées je suis preneur.

Bonjour, Je pense avoir mal compris votre réponse car cela me donnerait : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rng As Range Dim ws As Worksheet Dim uf As New UserForm1 ' Assurez-vous que le nom du UserForm est correct ' Définir...

Si cela peut aider, j'ai un bouton de commande pour valider mon nouveau commentaire dans le userform dont le code est le suivant : Private Sub CommandButton1_Click() ' Récupérer le nouveau commentaire depuis TextBox1 Dim newComment As String newComment = Me.TextBox1.Text '...

Merci beaucoup je viens de le changer ! Au début j'avais défini mes "comments" en string mais dans ce cas j'ai la même incompatibilité de type mais sur cette ligne là : existingComments = Target.Value. Je ne comprend pas pourquoi puisque dans ma cellule j'ai une chaîne de caractère donc le...

Bonjour, je suis en train d'écrire un code où quand je double clique sur un cellule celle ci m'ouvre un userform dans lequel le 1er textbox me permet de rentrer un nouveau commentaire et dans un 2nd j'ai la liste de tous les anciens commentaires. Le code est le suivant : Private Sub...