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
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
bonsoir
Private Sub CommandButton1_Click()
union(Range("F10"),Range("W10"),.....liste de tes ranges.....,Range("G7")).clearcontents
unload tonuserform
tonuserform.show
end sub
avec la fonction "union", tu peux listerjusqu'à 30 ranges...
Michel-
-
Michel
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 -
-
-
