Selection plage de cellules avec condition en VBA

Version imprimable

27/10/2016, 08h34
Neilah

Selection plage de cellules avec condition en VBA

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
27/10/2016, 10h07
Menhir

Citation:

Envoyé par Neilah

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 ?

Citation:

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 ?) ?

Citation:

(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.

Citation:

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é).
27/10/2016, 10h23
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
27/10/2016, 10h32
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 ?

Citation:

Envoyé par Neilah

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

Désolé mais "telle cellule", je ne sais pas coder.
27/10/2016, 11h15
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

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

Code:

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

27/10/2016, 12h37
Neilah

1 pièce(s) jointe(s)

il me mets "utilisation incorrecte de l'objet"
je vous joint des eléments du fichier si vous pouvez y jeter un œil ...
encore Merci

Pièce jointe 223427
27/10/2016, 12h43
Menhir

Citation:

Envoyé par Neilah

il me mets "utilisation incorrecte de l'objet"

Quand tu dis "je ne suis pas très calé en VBA", ça veut dire quoi exactement ?
Parce que là, j'ai l'impression que tu as envie que ça te tombe tout chaud dans le bec sans faire d'effort.

Citation:

je vous joint des eléments du fichier si vous pouvez y jeter un œil ...

Non. J'évite d'ouvrir des pièces jointes, particulièrement quand elles peuvent contenir des macro.

Je sais que c'est ce qui peut paraître mais ce n'est pas mon intention, je "bricole" en VBA
J'avais d'ailleurs trouvé un solution pour valider les colonnes semaine par semaine :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub CommandButton38_Click() CommandButton38.BackColor = &HFF00& Worksheets("Pac").Range("E3:E48").Value = Range("B3:B48").Value Worksheets("Sebastopol").Range("E3:E48").Value = Range("C3:C48").Value Worksheets("Guelmeur").Range("E3:E48").Value = Range("D3:D48").Value Worksheets("Strasbourg").Range("E3:E48").Value = Range("E3:E48").Value Worksheets("St Martin").Range("E3:E48").Value = Range("F3:F48").Value Worksheets("K1").Range("E3:E48").Value = Range("G3:G48").Value Worksheets("K2").Range("E3:E48").Value = Range("H3:H48").Value Worksheets("Fournil").Range("E3:E11").Value = Range("I3:I11").Value Worksheets("Départ Dépanage").Range("E3:E48").Value = Range("N3:N48").Value End Sub
ce qui m'a fait rentrer 52 fois ce code... en faisant appel à vous j’espère pouvoir le simplifier en faisant appel à une macro unique pour les 52 boutons (que je veux quand même garder car ils changent de couleurs une fois la validation effectuée.