petit soucis avec la commande sheets

[noir_desir]

Bonjour tous le monde

Je ne comprend pas trop le fonctionnement :

J'ai mis au début dans mes références à le nom de l'onglet, malheureusement certain fichier, on l'onglet avec un nom qui a été changé.
voici l'ancien code

    If (Sheets("Fiche opération").Range("I7").Value = "") Or (Sheets("Fiche opération").Range("I9").Value = "") Or (Sheets("Fiche opération").Range("I11").Value = "") Or (Sheets("Fiche opération").Range("I13").Value = "") Or (Sheets("Fiche opération").Range("I15").Value = "") Or (Sheets("Fiche opération").Range("I17").Value = "") Or (Sheets("Fiche opération").Range("I20").Value = "") Or (Sheets("Fiche opération").Range("I32").Value = "") Or (Sheets("Fiche opération").Range("I35").Value = "") Or (Sheets("Fiche opération").Range("I38").Value = "") Or (Sheets("Fiche opération").Range("I42").Value = "") Or (Sheets("Fiche opération").Range("I40").Value = "") Then

J'ai donc voulu changer la référence de l'onglet par le nom feuil1 qui lui n'est pas changeable. Mais à ce moment là j'ai une erreur
Lorsque j'essaye avec ce code il me renvoie l'erreur 9 (indice n'est pas dans la sélection)

    If (Sheets("Feuil1").Range("I7").Value = "") Or (Sheets("Feuil1").Range("I9").Value = "") Or (Sheets("Feuil1").Range("I11").Value = "") Or (Sheets("Feuil1").Range("I13").Value = "") Or (Sheets("Feuil1").Range("I15").Value = "") Or (Sheets("Feuil1").Range("I17").Value = "") Or (Sheets("Feuil1").Range("I20").Value = "") Or (Sheets("Feuil1").Range("N32").Value = "") Or (Sheets("Feuil1").Range("N35").Value = "") Or (Sheets("Feuil1").Range("N38").Value = "") Or (Sheets("Feuil1").Range("N40").Value = "") Or (Sheets("Feuil1").Range("N40").Value = "") Then

Que dois je mettre donc

 

[ballmaster]

Re : petit soucis avec la commande sheets

bonjour noir_desir, le forum

Ta macro fonctionne chez moi.
Puisque tu as renommé ta feuille dans ton code par "feuil1", vérifie bien que le nom de ta feuille de ton classeur soit identique en tout point de vue.

N'y aurait-il pas un espace qui traîne quelque part?

sinon je ne vois pas pourquoi cela ne fonctionnerai pas

 

[PascalXLD]

Re : petit soucis avec la commande sheets

Bonjour

attention

si tu parles de Feuil1 dans le name vba il faut faire

non

sheets("Feuil1").range....

mais

Feuil1.range......

 

[dixit]

Re : petit soucis avec la commande sheets

bonjour,
je n'ai pas cherché dans le détail d'où vient le problème mais le code n'est pas clair : trop de parenthèses inutiles et possibilité de simplifier
voir la proposition jointe avec With/end with (attention au point devant Range)

 

[noir_desir]

Re : petit soucis avec la commande sheets

Je teste et je te dis mais je pense que c'est ca

 

[Robert]

Re : petit soucis avec la commande sheets

Bonjour Noir_désir, Ballmaster, Pascal,

Tu peux aussi utiliser l'index de ton onglet et là tu ne fais plus du tout référence au nom :

 Sheets(1).Range(....)

 

[noir_desir]

Re : petit soucis avec la commande sheets

Je viens de regarder ta macro, je ne connaissais pas cette commande.
C'est trop bien

 

[PascalXLD]

Re : petit soucis avec la commande sheets

Re

Perso je prefère nommer mes feuilles dans le VBE et utiliser ce nom

genre j'ai une feuille nommé "Base" dans excel je l'appelle WsBase et dans VBA j'écris

WsBase.range(....)

car le Sheets("Base") posera problème en cas de changemetn de nom

et le sheets(1) posera problème si changement d'ordre des feuilles

 

[noir_desir]

Re : petit soucis avec la commande sheets

Ok Mais cette solution n'est pas envisageable pour moi, car je lis des fichiers que je ne peux pas modifié malheureusement.

Par contre je vais devoir mettre feuil1 . range, car des feuil ont pu changé de place (enfin ça ne m'entonnerai pas )

 

[noir_desir]

Re : petit soucis avec la commande sheets

J'ai encore un petit problème

j'ai mis cette commande pour récupérer le contenu dans ma feuil1 de la case M30

tampon = Feuil1.Range("M30").Value

Je me suis mis dans mon classeur avec

Workbooks(fichier).Activate

Il me dit que la case est vide alors que non.

 

[PascalXLD]

Re : petit soucis avec la commande sheets

RE

tu as essayé ??

tampon=WOrkbooks(fichier).feuil1.range("M30")

 

[noir_desir]

Re : petit soucis avec la commande sheets

Cette commande ne satisfait pas du tout excel:

propriété non géré par cette objet

 

[noir_desir]

Re : petit soucis avec la commande sheets

Je me trompe peut être, mais j'ai l'impression que cette commande renvoie du vide si la case est fusionné.

Dans un des fichiers j'ai par ex

de m31 à AB41 une fusion

avec la commande tampon=feuil1.range("N31").value il me donne une valeur vide dans tampon

par contre avec tampon=sheet(1).range("N31").value il me détecte quelque chose

 

[PascalXLD]

Re : petit soucis avec la commande sheets

re

tu es sur que ta feuille s'appelle bien Feuil1 ??

tu pourrais faire un exemple d'un truc qui ne marche pas et l'envoyer

 

[noir_desir]

Re : petit soucis avec la commande sheets

Je te joins le fichier.
Par contre pour le fichier d'extraction il est trop gros


je te les commande que j'ai dans mon programme

Sub verif(chemin, compteur, fichier)

Dim tampon As String
     
    
    Workbooks(fichier).Activate
  'ligne qui fonctionne que avec sheets et pas feuil1
    tampon = Sheets(1).Range("N31").Value
    
    Workbooks("extraction fichier").Activate
    Sheets("extraction des fichiers").Select
    Range("B" & compteur1).Select
    ActiveCell.FormulaR1C1 = tampon
end sub

fichier est le nom du classeur