XL 2019 Problème avec bouton de validation

[vinzzz1]

Je rencontre un problème avec mon code lors de la validation avec le bouton,
Je lui demande de copiez la valeur d'un textbox en A8 et puis les lignes en dessous ( jusque la pas de soucis) mais en parrallèle je lui demande de copiez la valeur d'une combobox en C8 et puis les en dessous.

La ou je rencontre un probleme c'est que je dois clicker plusieurs fois pour qu'il me copie les valeurs exacte.

Merci

 

[Staple1600]

Bonjour le fil, vinzzz1 (et meilleurs voeux pour 2021)

Je rencontre un problème avec mon code lors de la validation avec le bouton,

Le premier problème que tu rencontres est d'abord ce que ne contient pas ton message 😉
Il manque un petit quelque chose qui fait la diffèrence 🙄
(voir la charte du forum pour comprendre)

NB: Et l'usage c'est de continuer dans la discussion initiale (en faisant un up)

 

[vinzzz1]

Bonjour le fil, vinzzz1 (et meilleurs voeux pour 2021)


Le premier problème que tu rencontres est d'abord ce que ne contient pas ton message 😉
Il manque un petit quelque chose qui fait la diffèrence 🙄
(voir la charte du forum pour comprendre)

NB: Et l'usage c'est de continuer dans la discussion initiale (en faisant un up)

Effectivement je m'excuse, tout d'abord bonjour et meilleurs voeux pour 2021 !

 

[Staple1600]

Re

Et dernier conseil d'un vieux briscard du forum
L'usage c'est de faire un feedback dans les discussions qu'on a ouvert

https://www.excel-downloads.com/thr...ge-de-cellule-definie.20052460/#post-20391046

J'attends tes commentaires et ou avis depuis hier 😉

 

[vinzzz1]

Après recherche j'ai trouvé la solution a mon problème, je met ça ici on ne sait jamais si ça peut aider quelqu'un..

Private Sub btvalidate_Click()

With Sheets("Feuil1")
ligne = .Range("A32").End(xlUp).Row + 1 'Mes valeurs viennent se copier a la 1ère ligne vide au dessus de la 32ème
.Range("A" & ligne).Value = OTreseaux
.Range("C" & ligne).Value = taf
End With

End Sub