Discussion :

[Neilah]

Bonjour,
je ne suis pas très calé en VBA et j'aurais besoin d'un petit coup de main ...
Je voudrais grâce à un code VBA sélectionner sur plusieurs pages identiques une plage de cellule dans la colonne dont la première ligne est égale à la semaine en cours (renseignée par formule dans une cellule).
mon objectif est de copier ces données et de recopier uniquement les valeurs au même endroit afin de supprimer les fonctions.
J'espère avoir été assez clair et je vous remercie de votre aide.
Patrick

[Menhir]

sur plusieurs pages identiques

Quand tu dis "pages", je suppose que tu veux parler de feuilles ?
Comment savoir quelles feuilles sont concernée ? Toutes ? Toutes sauf la premières ? Celles qui ont un nom particulier ?

une plage de cellule dans la colonne dont la première ligne est égale à la semaine en cours

Qu'est-ce qui délimite ta plage au niveau des lignes ? Toute le colonne ? Toute la colonne sauf la première ligne ? Un nombre de ligne donné (quel nombre ?) ?

(renseignée par formule dans une cellule).

Quelle formule ?
Il y a plusieurs façon de calculer un numéro de semaine, toutes les méthodes ne donnant pas les mêmes résultats.
Pour connaitre la semaine courant, il faut savoir comment tu calcules tes semaines.

mon objectif est de copier ces données et de recopier uniquement les valeurs au même endroit afin de supprimer les fonctions.

Je ne comprends pas.
Tu veux copier les résultats des formules dans les cellules où se trouvent ces formules, c'est bien ça ?

Petit remarque en passant : pour faire une copie en VBA, il n'est quasiment jamais nécessaire de sélectionner (c'est même déconseillé).

[Neilah]

- Effectivement, il s'agit de Feuilles. Les feuilles concernées (8) sont nommées PAC, Sebestopol ...
- La première ligne est figée, je voudrais sélectionner de la ligne 3 à la ligne 200
- il n'y a pas beaucoup d'importance par rapport au calcul de semaine, il faut juste que ce soit la colonne dont la première ligne est égale à telle cellule.
- je veux que pour la plage de cellule trouvée garder les valeurs en supprimant les formules (j'avais trouvé cette solution de copier et recoller uniquement les valeurs mais il y a peut-être une autre solution)

Merci beaucoup de vous pencher sur ma question
Cordialement

[Menhir]

Tu n'a pas répondu à la question : Comment savoir quelles feuilles sont concernée ? Toutes ? Toutes sauf la premières ? Celles qui ont un nom particulier ?

Plus clairement, comment dire à VBA quelles sont les feuilles concernées parmi toutes les feuilles ?
Est-ce que tu as quelque part une liste des noms de ces feuilles ?

la colonne dont la première ligne est égale à telle cellule.

Désolé mais "telle cellule", je ne sais pas coder.

[Neilah]

Feuilles nommées Pac, Sebastopol, Guelmeur, Strasbourg, St Martin, K1, K2 et Fournil
La cellule contenant la valeur à trouver est la E19 de la feuille Accueil
Merci de votre patience
Patrick

[Menhir]

Je n'ai pas testé. Il y aura donc peut-être du débugage à faire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopyHard()
   Dim WS As Worksheet, Trouve As Range
 
   For Each WS In Worksheets
      Select Case WS.Name
      Case "Pac", "Sebastopol", "Guelmeur", "Strasbourg", "St Martin", "K1", "K2", "Fournil"
         Set Trouve = WS.Range("A1:ZZ1").Find(Worksheets("Accueil").Range("E19").Value)
         If Not Trouve = Nothing Then
            WS.Range(Trouve.Offset(1, 0), Trouve.Offset(199, 0)).Copy
            Trouve.Offset(1, 0).PasteSpecial (xlPasteValues)
         End If
      End Select
End Sub