Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Problème avec bouton de validation

  • Initiateur de la discussion Initiateur de la discussion vinzzz1
  • Date de début Date de début

vinzzz1

XLDnaute Nouveau
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
 

Pièces jointes

  • Test.xlsm
    42.2 KB · Affichages: 12
Solution
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

Staple1600

XLDnaute Barbatruc
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

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

vinzzz1

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
27
Affichages
747
Réponses
6
Affichages
462
Réponses
26
Affichages
1 K
Réponses
3
Affichages
431
Réponses
8
Affichages
343
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…