Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pourquoi ca ne fonctionne pas ?

Pourquoi ca ne fonctionne pas ?

3 réponses
Avatar
aravis
bonjour, voici mon bout de programme qui permet d'effacé les donné dans les
colonnes marqué. Mais ca met un message d'erreur :(

Private Sub CommandButton3_Click()



Range("B8:D13,B19:D24,B30:D35").Select
Range("B30").Activate
Selection.ClearContents
Sheets("def_eq1").Select
Range("B6:C29").Select
Selection.ClearContents
Sheets("def_eq2").Select
Selection.ClearContents
Sheets("def_eq3").Select
ActiveWindow.SmallScroll Down:=-6
Range("B5:C28").Select
Selection.ClearContents

End Sub


pourriez vous m'aidez ?
cordialement
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Le problème vient de ce que la macro est rattachée au bouton. Dans un
module, elle fonctionnerait nickel. Avec le bouton, si tu ne précises pas la
feuille, celle-ci est censée être celle du bouton. Essaie :

Range("B8:D13,B19:D24,B30:D35").Select
Range("B30").Activate '*** pourquoi ?
Selection.ClearContents
Sheets("def_eq1").Select
Sheets("def_eq1").Range("B6:C29").Select
Selection.ClearContents
Sheets("def_eq2").Select
Selection.ClearContents
Sheets("def_eq3").Select
ActiveWindow.SmallScroll Down:=-6
Sheets("def_eq3").Range("B5:C28").Select
Selection.ClearContents

Cordialement.
Daniel
"aravis" a écrit dans le message de news:

bonjour, voici mon bout de programme qui permet d'effacé les donné dans
les
colonnes marqué. Mais ca met un message d'erreur :(

Private Sub CommandButton3_Click()



Range("B8:D13,B19:D24,B30:D35").Select
Range("B30").Activate
Selection.ClearContents
Sheets("def_eq1").Select
Range("B6:C29").Select
Selection.ClearContents
Sheets("def_eq2").Select
Selection.ClearContents
Sheets("def_eq3").Select
ActiveWindow.SmallScroll Down:=-6
Range("B5:C28").Select
Selection.ClearContents

End Sub


pourriez vous m'aidez ?
cordialement


Avatar
jps
parce que proc créée par l'neregistreur de macros, daniel....tu ne peux pas
savoir, évidemment, mais nous les petits, les obscurs, les sans grades, si!
jps

"Daniel" a écrit dans le message de news:


Range("B30").Activate '*** pourquoi ?


Avatar
Daniel
;-)
Daniel
"jps" a écrit dans le message de news:

parce que proc créée par l'neregistreur de macros, daniel....tu ne peux
pas savoir, évidemment, mais nous les petits, les obscurs, les sans
grades, si!
jps

"Daniel" a écrit dans le message de news:


Range("B30").Activate '*** pourquoi ?