Conditionner le déroulement d'une macro a l'existence d'une feuille

C

Catrice

XLDnaute Barbatruc

• 22 Juin 2009

• #2

Re : Conditionner le déroulement d'une macro a l'existence d'une feuille

Bonjour,

Ci-dessous un exemple à adapter :


Sub test()
Marqueur = 0
For Each X In Sheets
If X.Name = "Validé" Then Marqueur = 1
Next
If Marqueur = 0 Then Exit Sub 'Si la feuille n'existe pas, on sort de la Sub
'Si la feuille existe, mettre ici ton code ...
End Sub

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 22 Juin 2009

• #3

Re : Conditionner le déroulement d'une macro a l'existence d'une feuille

Catrice à dit:

Bonjour,

Ci-dessous un exemple à adapter :


Sub test()
Marqueur = 0
For Each X In Sheets
If X.Name = "Validé" Then Marqueur = 1
Next
If Marqueur = 0 Then Exit Sub 'Si la feuille n'existe pas, on sort de la Sub
'Si la feuille existe, mettre ici ton code ...
End Sub

Cliquez pour agrandir...

Bonjour Catrice,
Là je suis incapable d'adapter ton code avec :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Avec un peu plus d'explication si tu veux bien.
Merci.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 22 Juin 2009

• #4

Re : Conditionner le déroulement d'une macro a l'existence d'une feuille

Re,

Je n'ai pas regardé ton code.
J'ai juste répondu à la question, "Si la feuille "Validé" existe la macro se déroule".
Où veux tu dans ton code tester l'existence de la feuille "Validé" ?

Voir modif ci-dessous :

'Code avant
Marqueur = 0
For Each X In Sheets
If X.Name = "Validé" Then Marqueur = 1
Next
If Marqueur = 0 Then
MsGbox "La feuille n'existe pas"
Exit Sub
Else
'Si la feuille existe, mettre ici ton code ...
End IF
'Code apres

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 22 Juin 2009

• #5

Re : Conditionner le déroulement d'une macro a l'existence d'une feuille

Oui voilà :

"Où veux tu dans ton code tester l'existence de la feuille "Validé" ?"

J'aimerais tester au premier double click.

Merci.

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 22 Juin 2009

• #6

Re : Conditionner le déroulement d'une macro a l'existence d'une feuille

Re,

Ca devrait ressembler à :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Marqueur = 0
For Each X In Sheets
If X.Name = "Validé" Then Marqueur = 1
Next
If Marqueur = 0 Then
MsgBox "La feuille n'existe pas"
Exit Sub
Else
'Ici ton code
End IF
End Sub

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 22 Juin 2009

• #7

Re : Conditionner le déroulement d'une macro a l'existence d'une feuille

Bonsoir

Bonsoir, Catrice

@ Catrice

une autre façon de tester l'existence d'une feuille...

Code:

On Error Resume Next
x = Len(Sheets("Feuil1").Name)
On Error GoTo 0
If x > 0 Then
MsgBox "existe"
End If

 

Vote positif 0 Vote négatif

D

degap05

XLDnaute Impliqué

• 22 Juin 2009

• #8

Re : Conditionner le déroulement d'une macro a l'existence d'une feuille

Bonjour, Catrice et bhbh,


Voilà comment j'ai adapté vos propositions:
Dim test As Boolean, curSheet As Worksheet

For Each curSheet In ThisWorkbook.Sheets
If curSheet.Name = "Validé" Then test = True
Sheets("Cde").Select
'si la feuille n'a pas encore été créée, la créer
If Not test Then ThisWorkbook.Sheets.Add.Name = "Validé"
Sheets("Validé").Range("A1").Value = "DEM01900"
Sheets("Cde").Select
Next

'mon code

Voyez-vous une amélioration à apporter ?

A+

 

Dernière édition: 23 Juin 2009

Vote positif 0 Vote négatif