Code
Résolu
martial
-
martial -
martial -
Bonjour,
Je reviens vers vous suite à un problème de code
1 l'userforme range des valeurs dans des cellules jus ka la ca marche
2 création d'un bouton pour sup des valeurs dans les cellules ( ca marche aussi)
3 je voudrais que quand je clic sur le bouton sup des valeurs (2) qu'il vide l'userform
il y à t'il une possibilité ???
Code du bouton sup des valeurs
Private Sub CommandButton1_Click()
Range("F10").Select
Selection.ClearContents
Range("W10").Select
Selection.ClearContents
Range("n10").Select
Selection.ClearContents
Range("K12").Select
Selection.ClearContents
Range("P12").Select
Selection.ClearContents
Range("C17:L26").Select
Selection.ClearContents
Range("F12").Select
Selection.ClearContents
Range("Y7").Select
Selection.ClearContents
Range("E14").Select
Selection.ClearContents
Range("K14").Select
Selection.ClearContents
Range("G7").Select
Selection.ClearContents
End Sub
Merci
Je reviens vers vous suite à un problème de code
1 l'userforme range des valeurs dans des cellules jus ka la ca marche
2 création d'un bouton pour sup des valeurs dans les cellules ( ca marche aussi)
3 je voudrais que quand je clic sur le bouton sup des valeurs (2) qu'il vide l'userform
il y à t'il une possibilité ???
Code du bouton sup des valeurs
Private Sub CommandButton1_Click()
Range("F10").Select
Selection.ClearContents
Range("W10").Select
Selection.ClearContents
Range("n10").Select
Selection.ClearContents
Range("K12").Select
Selection.ClearContents
Range("P12").Select
Selection.ClearContents
Range("C17:L26").Select
Selection.ClearContents
Range("F12").Select
Selection.ClearContents
Range("Y7").Select
Selection.ClearContents
Range("E14").Select
Selection.ClearContents
Range("K14").Select
Selection.ClearContents
Range("G7").Select
Selection.ClearContents
End Sub
Merci
A voir également:
- Code
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
je teste et t'informe
A+
Martial
Ca marche pas erreur d'exécution '424'
Objet requis
Voila le code
Private Sub CommandButton1_Click()
Union(Range("F10"), Range("W10"), Range("N10"), Range("K12"), Range("P12"), Range("F12"), Range("Y7"), Range("E14"), Range("K14"), Range("G7")).ClearContents
Unload tonuserform2
tonuserform2.Show
End Sub
y à t'il un code plus directe avec le bouton de validation dans l'userform2
sans sup les valeur dans les cellules du fichier
Private Sub ToggleButton1_Click()
????????
Merci
Ca marche avec
Unload UserForm2
UserForm2.Show
mais ouvre l'userform2 ???
OUFFFFFFFFFF
Ca mache
union(range("F10"),....etc
Unload UserForm2
UserForm2.hide
Merci
et
merci
A+