1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Comparaison d un nom et d un nom d une feuille

Résolu
Don_Cagoule
Messages postés
11
Date d'inscription
jeudi 8 juin 2006
Statut
Membre
Dernière intervention
21 mai 2007
 - 18 juil. 2006 à 10:37
Don_Cagoule
Messages postés
11
Date d'inscription
jeudi 8 juin 2006
Statut
Membre
Dernière intervention
21 mai 2007
 - 18 juil. 2006 à 13:35
bonjour
je voudrais comparer le nom d une feuille de classeur excel avec un autre nom
voici mon code :

   anneeencours = Year(Date)
   anneepassee = anneeencours - 1
   nomfeuille = "Indicateur " & anneeencours
   nomfeuillepasse = "Indicateur " & anneepassee
   For j = 1 To Sheets.Count Step 1
       If nomfeuille <> Sheets(j).Name Then
            Sheets(nomfeuillepasse).Select
            Sheets.Add
            Sheets.Select
            Sheets("Feuil5").Name = nomfeuille
            Sheets(nomfeuillepasse).Select
            Cells.Select
            Selection.Copy
            Sheets(nomfeuille).Select
            Range("A1").Activate
            ActiveSheet.Paste
            For l = 0 To 22 Step 2
               For m = 0 To 4 Step 1
                   Sheets(nomfeuille).Cells(10 + l, 2 + m).Value = ""
               Next m
           Next l
       End If
   Next j

Mon probleme c'est qu il me crée ma premiere feuille mais apres ca il rerentre dans le if et la j obtiens une erreur car il existe deja une page avec le meme nom ca c normal
je pense que c est ma condition du "si" qui n est aps correcte mais je ne vois pas comment y remedier

merci

don_cagoule

PS : j ai aussi essayé avec strcomp

4 réponses

Réponse 1 / 4
Don_Cagoule
Messages postés
11
Date d'inscription
jeudi 8 juin 2006
Statut
Membre
Dernière intervention
21 mai 2007
18 juil. 2006 à 13:35
anneeencours = Year(Date)
anneepassee = anneeencours - 1
nomfeuille = "Indicateur " & anneeencours
nomfeuillepasse = "Indicateur " & anneepassee
test = 0
For j = 1 To Sheets.Count Step 1
    If nomfeuille <> Sheets(j).Name Then
        test = test + 1
    Else
        test = test + 0
    End If
Next j
If test = Sheets.Count Then
    Sheets(nomfeuillepasse).Select
    Sheets.Add
    Sheets.Select
    Sheets("Feuil1").Name = nomfeuille
    Sheets(nomfeuillepasse).Select
    Cells.Select
    Selection.Copy
    Sheets(nomfeuille).Select
    Range("A1").Activate
    ActiveSheet.Paste
    For l = 0 To 22 Step 2
        For m = 0 To 4 Step 1
            Sheets(nomfeuille).Cells(10 + l, 2 + m).Value = ""
        Next m
    Next l
    Worksheets(nomfeuille).Range("L24").Value = "=NBVAL('Suivi Commandes'!A:A)"
End If
3
Réponse 2 / 4
tof008
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
 33
18 juil. 2006 à 10:50
Salut!
Essaie de cette maniere : 

  anneeencours = Year(Date)
   anneepassee = anneeencours - 1
   nomfeuille = "Indicateur " & anneeencours
   nomfeuillepasse = "Indicateur " & anneepassee
   For j = 1 To Sheets.Count Step 1

       If nomfeuille <> Sheets(j).Name Then  
            bollean = true  
      else boolean = false
      end if 
next j

            if boolean = true then
            Sheets(nomfeuillepasse).Select
            Sheets.Add
            Sheets.Select
            Sheets("Feuil5").Name = nomfeuille
            Sheets(nomfeuillepasse).Select
            Cells.Select
            Selection.Copy
            Sheets(nomfeuille).Select
            Range("A1").Activate
            ActiveSheet.Paste
            For l = 0 To 22 Step 2
               For m = 0 To 4 Step 1
                   Sheets(nomfeuille).Cells(10 + l, 2 + m).Value = ""
               Next m
           Next l
       End If

De cette maniere si la feuille existe deja, ton booleen sera à false et tu ne rentrera pas dans la boucle if.

(Si la réponse vous convient, appuyez sur réponse acceptée...). Noubliez pas de lire le REGLEMENT 

Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire<>
0
Réponse 3 / 4
Don_Cagoule
Messages postés
11
Date d'inscription
jeudi 8 juin 2006
Statut
Membre
Dernière intervention
21 mai 2007
18 juil. 2006 à 11:30
merci de ta solution cela m a permis d avancer

le probleme avec ta solution proposée c est que ton boolean ne garde la valeur que de la derniere feuille du classeur et par consequent il me creera toujours une nouvelle feuille et la il y aura un bug car le nom existera deja

anneeencours = Year(Date)
anneepassee = anneeencours - 1
nomfeuille = "Indicateur " & anneeencours
nomfeuillepasse = "Indicateur " & anneepassee
test = 0
For j = 1 To Sheets.Count Step 1
    If nomfeuille <> Sheets(j).Name Then
        test = test + 1
    Else
        test = 0
    End If
Next j
If test = Sheets.Count Then
    Sheets(nomfeuillepasse).Select
    Sheets.Add
    Sheets.Select
    Sheets("Feuil1").Name = nomfeuille
    Sheets(nomfeuillepasse).Select
    Cells.Select
    Selection.Copy
    Sheets(nomfeuille).Select
    Range("A1").Activate
    ActiveSheet.Paste
    For l = 0 To 22 Step 2
        For m = 0 To 4 Step 1
            Sheets(nomfeuille).Cells(10 + l, 2 + m).Value = ""
        Next m
    Next l
    Worksheets(nomfeuille).Range("L24").Value = "=NBVAL('Suivi Commandes'!A:A)"
End If
0
Réponse 4 / 4
tof008
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
 33
18 juil. 2006 à 11:37
C'est rien, content d'avoir pu t'aider!

(Si la réponse vous convient, appuyez sur réponse acceptée...). Noubliez pas de lire le REGLEMENT 

Il y a plusi
0