Lors d'un double clic sur une cellule , celle-ci s'agrandit ??
Bonjour à tous
Sur ce fichier, lors d'un double-clic sur le nom en colonne A de la feuille Vote, la cellule s'agrandit , ce qui est très gênant .
Je ne comprends pas
Merci à vous
Voici le vilain fichier
A bientôt
Bonne soirée
Bonjour Gmb
Super
Je n'aurais pas du tout pensé à ce genre de choses, trop débutante....
Un grand merci et bonne fin de journée
A +
bonjour Patty
si tu supprime le BeforeDoubleClick
ca marche pas tu a fait quoit dans dans la plage B4:B29 car ca peux servir pour les autre
A+
Maurice
Bonjour
Le BeforeDoubleClick n'a pas été supprimé, si tu regardais bien le code.
Gmb a juste rajouté
Cancel = Trueau début de la procédure.
Bye
Bonsoir,
Je ne sais pas si j'ai compris la question de départ (et j'arrive bien après la proposition de gmb), mais la cellule "s'agrandit", parce que les hauteurs de lignes ne sont pas adaptées à la taille de la police ... en augmentant la hauteur des lignes, le problème n'apparaît plus (ce que le Cancel=true au début du code de gmb résout d'une autre manière)
... Si c'était bien là la question
re
supprime toutes les ligne du BeforeDoubleClick et regarde
je pense que le problème est dans la déclaration du tableau
A voir
A+
Maurice
Bonsoir Patty,
Ton fichier actuel contient un bug !
Si tu double-cliques en A3, c'est caché par la fusion de B2:B3 ; mais c'est bien pire si tu double-cliques en A2 :
Voici donc le fichier de mbbp modifié pour éviter ces divers inconvénients :
dhany
Bonsoir Dhany
Effectivement, j'avais oublié de tester la ligne....
Merci de me l'avoir fait remarquer
Bye
Bonsoir
sans le Cancel
A voir
A+
Maurice
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dlig = Range("A" & Rows.Count).End(xlUp).Row
If Not Intersect(Target, Range("A4:A" & Dlig)) Is Nothing Then
Cells(Target.Row, 2) = Cells(Target.Row, 2) + 1
End If
End Sub