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

[VBA_DEAD]

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]

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]

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

Bonjour,

Dans ton code remplace le bout de code existant par :

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]

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

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 :

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]

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