Comment faire pour boucler sur le code name des feuilles?

K

kjin

XLDnaute Barbatruc

• 28 Janvier 2010

• #2

Re : Comment faire pour boucler sur le code name des feuilles?

Bonsoir papou 🙂,
Essaie peut-être comme ceci

Code:

Dim ws As Worksheet
'...
For a = 2 To 10
    Set ws = Sheets(Sheets(a).CodeName)
    cel.Rows.Copy ws.Range("D65000").End(xlUp).Offset(1, 0)
Next a
'...

A+
kjin

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Janvier 2010

• #3

Re : Comment faire pour boucler sur le code name des feuilles?

Bonsoir Kjin le forum
je vais essayer de suite
et je te redis cela
a+ et merci
papou 🙂

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 28 Janvier 2010

• #4

Comment faire pour boucler sur le code name des feuilles d'un classeur?

Bonsoir Kjin le forum
cela ne marche pas, systématiquement quand je lance j'ai une erreur l'indice n'appartient pas à la sélection et ws. en pas à pas me donne nothing donc il faut autre choses mais quoi!!!!! ????
a+
papou🙂

 

Dernière édition: 28 Janvier 2010

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 28 Janvier 2010

• #5

Re : Comment faire pour boucler sur le code name des feuilles?

Bonsoir Paritec, kjin, le forum,

Papou, tu peux utiliser l'index des feuilles, mais attention : il faut protéger le classeur, car si tu déplaces les onglets, ça ne fonctionnera plus.

Pour ma part, je fais référence aux noms des feuilles situés sur la gauche (avant les parenthèses) dans l'explorateur de projets. Ces noms, attribués par Excel, ne changent pas même si on modifie leur nom dans les onglets.

Il suffit de les appeler ainsi, par exemple :

Code:

Feuil1.Range("...")=""

(Feuil1 sans guillemets)

Espérant t'avoir aidé.

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 29 Janvier 2010

• #6

Re : Comment faire pour boucler sur le code name des feuilles?

Bonjour a tous,
oui papou.net c'est bien en utilisant le codename que je souhaite faire une boucle mais quelle en est la syntaxe ?
pour intégrer ma variable ???
a+
Papou 😕

Code:

for a = 2 to 10
cel.Rows.Copy "Feuil" & a .Range("D65000").End(xlUp).Offset(1, 0)
next a

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Janvier 2010

• #7

Re : Comment faire pour boucler sur le code name des feuilles?

Bonjour à tous

une solution, mais avec activation de la feuille, enfin si j'ai bien compris ton problème :

Code:

Option Explicit
Sub test()
Dim i As Integer
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
    ThisWorkbook.VBProject.VBComponents("Feuil" & i).Activate
    ActiveSheet.Range("A1").Value = "zzz"
Next i
Application.ScreenUpdating = True
End Sub

bonne journée
@+

 

Dernière édition: 29 Janvier 2010

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Janvier 2010

• #8

Re : Comment faire pour boucler sur le code name des feuilles?

Re

A noter, pour que ce code fonction, il faut que la case "faire confiance au projet visual basic" soit cochée. Pour ce faire, barre de menu Excel => outils => macro => sécurité => onglet "éditeurs approuvés"...

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 29 Janvier 2010

• #9

Re : Comment faire pour boucler sur le code name des feuilles?

Bonjour Papou, le fil, le forum,

Cette macro détermine le numéro du CodeName de chaque feuille :

Code:

Sub Test()
Dim cel As Range, w As Worksheet, n As Integer
Set cel = Feuil1.[A1:E5] 'par exemple
For Each w In Worksheets
  n = Replace(w.CodeName, "Feuil", "")
  If n > 1 And n < 11 Then cel.Rows.Copy w.Range("D65000").End(xlUp).Offset(1)
Next
End Sub

A+

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 29 Janvier 2010

• #10

Re : Comment faire pour boucler sur le code name des feuilles?

Bonjour Job le forum
merci Job de ta macro je fais la suite je teste et je te redis quoi cet après midi
a+
papou🙂

 

Vote positif 0 Vote négatif