effacer reponses ds col B de X feuilles - ca bugue - VBA

VBA_DEAD · 3 Avril 2007

hello le forum

j`ai ne macro qui permet d`effacer des reponses reportees ds X feuilles de mon questionnaire (cellule A2, B2 et Col B) mais ca marche pas parfaitement.

Ca doit pas etre grave mais ca bloque 🙁

Un petit ajustement / coup de main serait symap

merci

VBA_DEAD

wilfried_42 · 3 Avril 2007

Re : effacer reponses ds col B de X feuilles - ca bugue - VBA

Bonjour Vba_Dead

ton ichier en retour, une macro un peu epurée

Spitnolan08 · 3 Avril 2007

Re : effacer reponses ds col B de X feuilles - ca bugue - VBA

Bonjour,

Dans ton code remplace le bout de code existant par :

Code:

For Each ws In Worksheets
ws.Visible = True

For j = 1 To Sheets.Count
    If Sheets(j).Name <> "administrateur" Then
        Sheets(j).Select
        ActiveSheet.Range("B5:B100").Select
        Selection.ClearContents
    End If
Next

Cordialement

Gorfael · 3 Avril 2007

Re : effacer reponses ds col B de X feuilles - ca bugue - VBA

VBA_DEAD à dit:
hello le forum

j`ai ne macro qui permet d`effacer des reponses reportees ds X feuilles de mon questionnaire (cellule A2, B2 et Col B) mais ca marche pas parfaitement.

Ca doit pas etre grave mais ca bloque 🙁

Un petit ajustement / coup de main serait symap

merci

VBA_DEAD

Salut
Ta macro modifiée :

Code:

Private Sub CommandButton1_Click()
Dim Ws As Worksheet
Sheets("administrateur").Visible = True
For Each Ws In Worksheets
    If Ws.Name <> "administrateur" Then
        Ws.Range("B5:B100").ClearContents
        Ws.Visible = False
    End If
Next
End Sub

Le problème ne viens pas du code, (pour l'effacement des données), mais de l'emplacement de ta macro : dans un module liée à une feuille, la propriété ".select" ne peut s'appliquer qu'à la feuille concernée. Pour toute autre feuille, ça provoque une erreur
Pour la partie masquage des feuille : Si tu mets ta feuille administrateur en dernier, ton code provoquera une erreur : Excel doit avoir au minimum une feuille de visible. Comme avec l'instruction SetFocus, quand tu caches les contrôles, tu rends visibles l'objet qui doit être visivle en dernier, tu places le focus dessus, et seulement après, tu masques
A+

VBA_DEAD · 3 Avril 2007

Re : effacer reponses ds col B de X feuilles - ca bugue - VBA

bonjour a tous les 3, le forum

je comprends Gorfael, merci pour cette explication.
Merci wilfried et spinolan08 pour votre aide egalement
ca marche!

bonne journee a tous

VBA_DEAD

effacer reponses ds col B de X feuilles - ca bugue - VBA

VBA_DEAD

XLDnaute Occasionnel

Pièces jointes

wilfried_42

XLDnaute Barbatruc

Pièces jointes

Spitnolan08

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

VBA_DEAD

XLDnaute Occasionnel

Discussions similaires

effacer reponses ds col B de X feuilles - ca bugue - VBA

VBA_DEAD

XLDnaute Occasionnel

Pièces jointes

wilfried_42

XLDnaute Barbatruc

Pièces jointes

Spitnolan08

XLDnaute Barbatruc

Gorfael

XLDnaute Barbatruc

VBA_DEAD

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency