Mes feuilles on un problème ou ma condition IF est elle fausse ? Fermé

Question

Bonjour, 

je revien vers vous car je ne comprend pas pourquoi ma condition if ne fonctionne pas, pourtant j'ai essayer de bien suivre ce que j'ai pu trouvé sure les différents forum et aide excel, 

j'ai un document qui fais plus de 110 feuilles, et je doit copie toute une colonne d'une feuille pour la remettre dans la dernier, mais à partir de la feuille 91 il y a une colonne qui est crée et donc mes ligne pour de macro automatique ne son plus correcte.

alors j'aimerais faire avec la condition IF et j'ai fais comme suite,

Option ExplicitSub Copie_Feuille()Dim NomF_Nouveau As String, NomF_Ancien As String, i As IntegerNomF_Ancien = Sheets(Sheets.Count).NameNomF_Nouveau = Sheets.Count + 1Sheets(NomF_Ancien).Copy After:=Sheets(NomF_Ancien)ActiveSheet.Name = NomF_NouveauRange("K12").Formula = "=H12-'" & NomF_Ancien & "'!H12"Range("L12").Formula = "='" & NomF_Ancien & "'!K12"Range("M12").Formula = "='" & NomF_Ancien & "'!L12"Range("K12:M12").Copy Range("K12:M12", Range("K12:M42"))Sheets(ActiveSheet.Index - 49).ActivateFor i = 1 to 90If Worksheets(i).Name ThenRange("A12").Copy Sheets(Sheets.Count).Range("A1")ElseRange("D12").Copy Sheets(Sheets.Count).Range("A1")End IfNext iSheets(NomF_Nouveau).ActivateEnd Sub

Mais mes feuilles ne son pas reconnue ni par le therms Feuil1 ou 1 ou par le nom de la feuille qui son "20 JUIN 15" par exemple 
j'aurais bien voulus savoir si vous savez comment faire.

Merci d'avance

Configuration: Windows / Chrome 46.0.2490.71

Frenchie83 · Answer

Bonjour
If Worksheets(i).Name Then
je traduis: si la feuille(i) alors  quelle est la condition?
Cdlt

Frenchie83 · Answer

Bonjour
Si vos feuilles de nomment  1, 2, 3, .....109, 110, 111 etc , ça marche
Quels noms leurs donnez vous?
Comme doit s'appeler la nouvelle feuille?
Donnez quelques exemples
Cdlt

Le Pingou · Answer

Bonjour,
Est-ce que votre code mentionné au début vous renvoie un message d'erreur ?
Si oui, texte du message et quelle est la ligne surlignée en jaune dans le code?

Le Pingou · Answer

Bonjour,
Merci de la réponse. Il manque la référence pour la condition (je n'ai pas trouvé cette référence...) :
Ce devrait-être de cette forme :
If Worksheets(i).Name <> La référence Then

Le Pingou · Answer

Bonjour,
Eh bien pour le If Worksheets(i).Name <> La référence Then il doit y avoir un critère (la référence) qui vous permet d'avoyer à l'instruction si vrai .... vers :
Range("A12").Copy Sheets(Sheets.Count).Range("A1")Et si faux .....vers :
Range("D12").Copy Sheets(Sheets.Count).Range("A1")

Remarque j'ai compris que votre code commence par ajouter une feuille au classeur (copier/coller la dernière feuille) et la nommer avec le nombre total des feuilles. 
Puis vous modifier diverse formules de la feuille.
Mais après c'est impossible de comprendre ce que vous voulez réaliser 
D'où sort la valeur ....-49    .... !
Pourquoi une boucle de 1 à 90 .....si votre classeur à déjà plus de 90 feuilles....

Le Pingou · Answer

Bonjour,
Merci. 
Mais alors c'est quoi qui ne marche pas... vous ne dites rien sur la première partie de mon message?
Mais cela ne me permet pas de mieux comprendre votre problème.
Eventuellement mettre votre fichier sur https://www.cjoint.com/  et poster le lien

Mes feuilles on un problème ou ma condition IF est elle fausse ?

6 réponses

Discussions similaires