Fonction If dans une macro:HELP!!

L

Lord Nelson

Guest

• 19 Janvier 2005

• #2

Salut Thierry,

Tu peux tester l'existence de ta feuille "résumé" comme ceci :

Dim WS As Worksheet
For Each WS In Sheets
If WS.Name = "résumé" Then
WS.Delete
Exit For
End If
Next

A+
Horatio

 

Vote positif 0 Vote négatif

T

Thierry

Guest

• 19 Janvier 2005

• #3

Merci pour cette réponse ça m'aide beaucoup.
Une dernière pour la route et promis j'arrete.

Mon probleme est maintenant le suivant:

Quand la macro ajoute une feuille dans le classeur, elle s'appelle, feuille 2, puis feulle 3, puis feuille 4 etc...

Or dans mon code je ne sais pas comment appeler cette feuille vierge qui vient de se créer pour ensuite faire ma feuille résumé...

Sheets("Table").Select
Sheets.Add
Sheets("Sheet2").Select
Sheets("Sheet2").Name = "Résumé"

Même si "résumé" est effacé à chaque fois que la macro est lancé, le N° de la feuille ajoutée monte d'un cran...

Merci

 

Vote positif 0 Vote négatif

W

WILFRIED

Guest

• 19 Janvier 2005

• #4

Salut thierry,

quand tu insert une feuille elle est activé,

donc :

Sheets("Table").Select
Sheets.Add
activesheets.name="résumé"

A+ wilfried ;op

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 19 Janvier 2005

• #5

Bonjour Thierry,

Essaie :

Sheets("Table").Select
Sheets.Add
ActiveSheet.Name = "Résumé"


En espérant que cela te dépanne.

Abel.

 

Vote positif 0 Vote négatif

L

Lord Nelson

Guest

• 19 Janvier 2005

• #6

Salut Abel, Wilfried, Re Thierry,

D'accord avec vous pour ActiveSheet.Name. On peut créer la feuille en dernière position avec "After" :

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Résumé"

A+
Horatio

 

Vote positif 0 Vote négatif

G

galopin01

Guest

• 19 Janvier 2005

• #7

Bonsoir,
La solution :

Sheets.Add.Name = "résumé"

Ok ?

 

Vote positif 0 Vote négatif