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

si textbox vide, pas changer valeur cellule cible

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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

charette63

XLDnaute Occasionnel
bonjour a tous et toutes,

voici un code qui renvoie la valeur d'un textbox vers des cellules:

Code:
Private Sub CommandButton8_Click()
'Valider
Range("H" & TextBox10.Value) = TextBox13.Value
Range("I" & TextBox10.Value) = TextBox14.Value
Range("J" & TextBox10.Value) = TextBox15.Value
Range("K" & TextBox10.Value) = TextBox16.Value
Range("L" & TextBox10.Value) = TextBox17.Value
Range("M" & TextBox10.Value) = TextBox18.Value
Range("N" & TextBox10.Value) = TextBox19.Value
Unload UserForm4
Unload UserForm1
End Sub

quand je lance la macro, les textbox vide me "vide" la cellule cible.
Existe-t-il la possibilité de dire: si la textbox est vide ne rien envoyer vers la cellule cible


et j'en profite pour une seconde question, dans mes textbox, il y en a une qui renvoie une donnée sous la forme : [H:mm]. Est-il possible d'obliger la textbox de ne prendre que cette forme d'écriture?

merci pour votre aide

cordialement

thierry
 
Re : si textbox vide, pas changer valeur cellule cible

pour ta 1ère question :

Code:
Private Sub CommandButton8_Click()
 'Valider
if TextBox13.Value<>"" then Range("H" & TextBox10.Value) = TextBox13.Value
if TextBox14.Value<>"" then Range("I" & TextBox10.Value) = TextBox14.Value
if TextBox15.Value<>"" then Range("J" & TextBox10.Value) = TextBox15.Value
if TextBox16.Value<>"" then Range("K" & TextBox10.Value) = TextBox16.Value
if TextBox17.Value<>"" then Range("L" & TextBox10.Value) = TextBox17.Value
if TextBox18.Value<>"" then Range("M" & TextBox10.Value) = TextBox18.Value
if TextBox19.Value<>"" then Range("N" & TextBox10.Value) = TextBox19.Value
 Unload UserForm4
 Unload UserForm1
 End Sub

Cela devrait fonctionner...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
Réponses
3
Affichages
1 K
Réponses
3
Affichages
623
M
Réponses
3
Affichages
2 K
MONADESIGN82
M
S
Réponses
4
Affichages
1 K
sgangbadjo
S
Réponses
7
Affichages
1 K
P
Réponses
7
Affichages
1 K
plaiiz
P
D
Réponses
8
Affichages
2 K
C
Réponses
8
Affichages
2 K
Genii
G
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…