problème select caseRésolu

Question

Bonjour, j'ai un petit problème concernant un select case. En fait je veux effacer des données dans chaque feuille, à des endroits précis et pas forcément les mêmes suivant les feuilles. Voici mon code: Sub test() Dim Feuille As Object Dim nb As Long For Each Feuille In Worksheets Select Case Feuille.Name Case "4021" nb = 4 While Cells(nb, 1).Value <> "" nb = nb + 1 Wend Range("c4", Cells(nb, 6)).ClearContents Case "4022" nb = 4 While Cells(nb, 1).Value <> "" nb = nb + 1 Wend Range("c4", Cells(nb, 6)).ClearContents Case "4023" nb = 4 While Cells(nb, 1).Value <> "" nb = nb + 1 Wend Range("c4", Cells(nb, 5)).ClearContents Case "AVCBT" nb = 4 While Cells(nb, 1).Value <> "" nb = nb + 1 Wend Range("c4", Cells(nb, 5)).ClearContents Case "419100" Range("C5:E5").Select Selection.ClearContents Case "419CIES" nb = 4 While Cells(nb, 1).Value <> "" nb = nb + 1 Wend Range("c4", Cells(nb, 5)).ClearContents Case "4025" nb = 4 While Cells(nb, 1).Value <> "" nb = nb + 1 Wend Range("c4", Cells(nb, 5)).ClearContents Case "4026" nb = 4 While Cells(nb, 1).Value <> "" nb = nb + 1 Wend Range("c4", Cells(nb, 5)).ClearContents Case "SAGE" Cells.Select Selection.ClearContents Case "WIN_4021" Cells.Select Selection.ClearContents Case "WIN_4022" Cells.Select Selection.ClearContents End Select Next le problème est que quand j'exécute la macro, toute les données de la feuille disparait, y compris mon tableau, comme si j'avais fais pour chaque feuille un Selection.ClearContents. Pouvez vous m'aider?

cs_casy · Accepted Answer

Essaye peut-etre en mettant un Feuille.Activate dans chaque Case avant de commencer la suppression.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

drikce06 · Answer

Salut, oui effectivement, si tu ne selectionne pas la feuille, la suppression se fera dans la feuille active au moment du case!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Pierr0o · Answer

Merci à vous c'est nikel

jrivet · Answer

Salut, Un petit peu de simplification d'écriture.... Sub test() 'Si on sait que Feuille est Worksheet 'Pourquoi la déclarer en object? Dim Feuille As Worksheet Dim nb As Long For Each Feuille In Worksheets Select Case Feuille.Name Case "4021", "4022" Call Feuille.Activate nb = 4 While Feuille.Range("A" & CStr(nb)).Value <> vbNullString nb = nb + 1 Wend Call Feuille.Range("C4", Cells(nb, 6)).ClearContents Case "4023", "AVCBT", "419CIES", "4025", "4026" Call Feuille.Activate nb = 4 While Feuille.Range("A" & CStr(nb)).Value <> vbNullString nb = nb + 1 Wend Call Feuille.Range("C4", Cells(nb, 5)).ClearContents Case "419100" Call Feuille.Activate Call Feuille.Range("C5:E5").ClearContents Case "SAGE", "WIN_4021", "WIN_4022" Call Feuille.Activate Feuille.Cells.ClearContents End Select Next End Sub , ---- [code.aspx?ID=41455 By Renfield] @+: Ju£i?n Pensez: Réponse acceptée

Pierr0o · Answer

euuuuu merci pour cette simplification, mais vbNullString et CStrcorrespondent a quoi?

drikce06 · Answer

vbNullString = "" > chaîne de caractère vide


et Cstr > convertie en type string un nombre ou autre chose

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Voir dans l'aide les convertions:

Cint, Cdbl, Csng etc...

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

BLUEBIBUBBLE · Answer

Moi j'aime pas trop les SELECT CASE sans CASE ELSE...
...mais si on est absolument certain qu'il ne peut JAMAIS y avoir de case else, alors...

drikce06 · Answer

ben dans son cas ça fait rien tout simplement!

ça sert à rien de mettre

Select Case
Case 1
 [code]
Case 2
[code]
Case Else
[rien]
End Select

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

BLUEBIBUBBLE · Answer

Tu as surement raison Drikce06, mais j'ais souvenir qu'un case else manquant faisait planter l'exe (c'était probablement sur une ancienne version VB voir QB, mais depuis je me méfie...)

Problème select case

10 réponses

Votre réponse

Discussions similaires