problème avec le numéro des feuilles du classeur (ne correspond pas)

[pascal21]

bonjour
j'ai rajouté des feuilles( 10)à mon classeur pour faire des sauvegardes
avec l'éditeurde macro, j'ai crée ce code

 worksheets(1).Select
    Range("a4:U38").Select
    Selection.Copy
   worksheets(13).Select
   Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

que j'ai recopier autant de fois de j'ai de fauilles à sauvegarder
le problème est que le numéro indiqué dans le code ne correspond pas à la feuille voulue (dans le cas de la feuille13 les données vont en feuille 16 😕
je précise que je ne peux pas les nommer grace à leur onglet car l'onglet est nommé grace au contenu d'une cellule
je ne comprends pas pourquoi le numéro de la feuille ne correspond pas
dans propriétés pourtant le bon numéro est indiqué
pouvez-vous m'expliquer ce phénomène est comment rectifier
au passage si vous pouvez simplifier le code ci-dessus ça serait sympa
merci

 

[chris]

Re : problème avec le numéro des feuilles du classeur (ne correspond pas)

Bonjour
Les numéros ne correspondent pas forcément à l'ordre des feuilles.
Il serait plus judicieux de tester le nom de l'onglet.
Tu dis que le nom de l'onglet est dans une cellule : peux tu préciser.

 

[pascal21]

Re : problème avec le numéro des feuilles du classeur (ne correspond pas)

bonjour Chris
le nom de l'onglet sera celui de la cellule b1 de la même feuille
cette cellule contiendra le nom d'un employé
et donc impossible de savoir maintenant quel nom correspondra à quelle feuille
et surtout ça peut évoluer (depart ou arrivée)
je viens de m'apercevoir que le numéro de la feuille correspond à celui de son placement dans la listes des onglets 😕
donc pour l'instant je m'en tient à cette bizzarerie
je testerais sur un autre pc en espérant que ça ne déregle pas tout

 

[chris]

Re : problème avec le numéro des feuilles du classeur (ne correspond pas)

Re
Tu as une solution plus sûre : tester le nom de la feuille

Dim sh As Object
Sub test()
For Each sh In ActiveWorkbook.Worksheets
x = sh.Name
If x = "Feuil2" Then
ton code
Exit For
End If
Next
End Sub

Ce que tu ne dis pas c'est si avant de copier tu connais le nom de l'onglet destinataire : tu parles de la cellule B1 mais est-ce dans la feuille source ou cible ?
Cela pourrait donner pour un onglet recherché avec le nom "Feuil2"
Sub test()
Range("A4:U38").Copy
For Each sh In ActiveWorkbook.Worksheets
x = sh.Name
If x = "Feuil2" Then
Worksheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exit For
End If
Next
End Sub

Il n'est pas utile d'avoir des select partout

 

[pascal21]

Re : problème avec le numéro des feuilles du classeur (ne correspond pas)

ok merci pour ton aide
les feuilles de 1 à 10 porteront dans l'onglet,la valeur de leur cellule b1
les feuilles 11 à 20 elles, porteront le nom recap. et le numéro correspondant des feuilles 1 à 10
ex: la feuille 1 s'appelle pascal
feuille 11 recap. pascal
je me doutait bien qu'il y avait un moyen de simplifier la macro
je rappelle que je l'ai fait avec l'éditeur(j'ai déjà supprimer pas mal de lignes superflues)
je testerais ta méthode ce soir
est-ce le code que tu me donne correspond aux 10 premières feuilles du classeur
je veux sauvegarder que les 10 premières feuilles

 

[chris]

Re : problème avec le numéro des feuilles du classeur (ne correspond pas)

Re
Si je comprends bien tu pars de la feuille nom et tu veux copier dans la feuille recap.nom
Sub test()
y=range("B1").value & ".recap"
Range("A4:U38").Copy
For Each sh In ActiveWorkbook.Worksheets
x = sh.Name
If x = y Then
Worksheets(y).Range("A65536").End(xlUp).Off set(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Exit For
End If
Next
End Sub

Par contre je ne suis pas sûre de comprendre ce que tu entends par sauvegarde

 

[pascal21]

Re : problème avec le numéro des feuilles du classeur (ne correspond pas)

re

 Par contre je ne suis pas sûre de comprendre ce que tu entends par sauvegarde

en fait la plage à copier/coller représente un période de 1 mois de pointages
jusqu'a maintenant, je gardais les traces sur papier
maintenant je les garde sur les feuilles recap.
j'ai essayé ton code ,je n'arrive pas à l'adapter à mon tableau
je vais garder mon code et vérifier sur un autre pc pour voir si il n'y a pas de soucis
je vais passer à un autre problème
merci