Airone784
XLDnaute Occasionnel
Bonsoir,
En espérant que vous ayez quelques minutes à m'accorder, voici mon problème que je n'arrive pas à résoudre.
Dans une feuille, j'ai A3=4, A6=5, A9=6, A12=7 et ce jusqu'à 15 en suivant la même logique à savoir un décalage de 3 lignes à chaque fois pour un incrément de 1.
Puis, j'utilise une UF et l'événement TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Je souhaite lorsque je double clic dans ma textbox1 que cette même textbox prenne la valeur de la cellule A3(4), puis si je double clic de nouveau sur la textbox cette même textbox prenne la valeur de la cellule A6(5) puis la valeur de A9(6), etc... jusqu'à A36(15) qui est le maximum!
J'ai déjà tenté ce code tout simple :
en précisant au départ la valeur de textbox1 :
Cela fonctionne sauf que dans mon exemple, il se peut parfois qu'une des cellules (comprise entre A3 et A36) soit vide, auquel cas si je double clic, je dois aussitôt passer à la cellule encore après (exemple : A3=4, A6=5, A9="", A12=7).
Je double clic une fois textbox1, textbox1.value=4 puis double clic suivant textbox.value=5, puis double clic suivant textbox1.value=7.
En espérant avoir été clair et que vous pourrez m'aider.
Merci d'avance.
En espérant que vous ayez quelques minutes à m'accorder, voici mon problème que je n'arrive pas à résoudre.
Dans une feuille, j'ai A3=4, A6=5, A9=6, A12=7 et ce jusqu'à 15 en suivant la même logique à savoir un décalage de 3 lignes à chaque fois pour un incrément de 1.
Puis, j'utilise une UF et l'événement TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Je souhaite lorsque je double clic dans ma textbox1 que cette même textbox prenne la valeur de la cellule A3(4), puis si je double clic de nouveau sur la textbox cette même textbox prenne la valeur de la cellule A6(5) puis la valeur de A9(6), etc... jusqu'à A36(15) qui est le maximum!
J'ai déjà tenté ce code tout simple :
Code:
Private sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
textbox1=textbox1+1
end sub
en précisant au départ la valeur de textbox1 :
Code:
Private Sub UserForm_Initialize()
textbox1=4
end if
Cela fonctionne sauf que dans mon exemple, il se peut parfois qu'une des cellules (comprise entre A3 et A36) soit vide, auquel cas si je double clic, je dois aussitôt passer à la cellule encore après (exemple : A3=4, A6=5, A9="", A12=7).
Je double clic une fois textbox1, textbox1.value=4 puis double clic suivant textbox.value=5, puis double clic suivant textbox1.value=7.
En espérant avoir été clair et que vous pourrez m'aider.
Merci d'avance.