Stocker une sélection et la transformer

Bonjour,
j'aimerais créer une macro qui dans un premier temps me permette de stocker un tableau sélectionné en vue de le transformer par la suite; j'ai essayé (naïvement?) avec "selection", mais cela semble automatiquement sélectionner toute la feuille.
Comment faire? Car je ne veux pas me rabattre sur des dimensions données, car les tableaux varient de taille en fonction des situations.
SI en plus je pouvais avoir un test pour q'un message apparaisse si rien n'est sélectionné, ce serait super.
Ce serait déjà un bon début pour mon projet ;) .

Merci d'avance,
un galérien du VBA

Normalement "Selection" correspond bien à la plage de cellules sélectionnées. Pourquoi tu dis qu'il te semble que ça prenne toute la feuille ? Tu fais quoi comme opération après ?

Bonjour,
Merci pour la réponse rapide.
hier j'avais testé sur 2007, ça me sélectionnait toute la feuille (normal?). effectivement, aujourd’hui je n'ai pas ce problème sur 2003.
par contre c'est pour la vérification de la sélection que je n'arrive pas à régler le "bug":

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit 'Oblige à déclarer toutes les variables utilisées   Private Sub CommandButton1_Click() Dim tab_1 As Variant 'tab_1 est le tableau de données original tab_1 = Selection   If Selection = False Then MsgBox "Aucune selection!" End If   If Selection <> False Then MsgBox "c'est un bon début" End If   End Sub

---

Et il y a un problème pour le "if selection ..."

Et tant que j'y suis, l'opération d'après consisterait à rajouter une colonne comportant les moyennes par ligne.

merci d'avance pour vos réponses

Selection est un objet Range, on ne peut pas l'assimiler à un Boolean. Après je ne suis pas sûr qu'il soit possible de n'y avoir aucune selection, à moins d'avoir un classeur avec seulement des feuilles protégées avec l'option selection impossible des cellules protégées. Mais tu peux toujours vérifier son existence

Code:

---

If Selection Is Nothing Then ...

---

Ou le nombre de lignes (je ne sais pas ce qui se passe dans le cas évoqué plus haut

Code:

---

If Selection.Rows.Count = 0 Or Selection.Columns.Count = 0 Then ...

---

Pour ce qui est de la moyenne, on pourrait faire la chose suivante

Code:

---

1 2 3 4 5 6

Dim i As Integer Dim Rg As Range For i = 1 To Selection.Rows.Count Set Rg = Range(Selection.Cells(i, 1), Selection.Cells(1, Selection.Columns.Count)) Selection.Cells(i, 1).Offset(0, Selection.Columns.Count).Value = WorksheetFunction.Average(Rg) Next i

---

Encore merci, ça fonctionne presque parfaitement! il y a juste la vérification de la sélection qui ne fonctionne pas, ce qui fait que si je ne sélectionne pas mon tableau de travail, cela m'indique un problème par la suite (il faudrait mettre une msgbox en cas d'oubli de sélection par exemple).

j'ose continuer d'exposer mon problème: avec cette superbe ligne correspondant aux moyenne, j'aimerais trier le tableau dans l'ordre croissant, et découper la dernière colonne (celle des moyennes) en "x" blocs, x étant donné par l'utilisateur.

Je crois que je comprends à peu près ce que tu veux. Ce que tu veux c'est que ton tableau soit sélectionné. S'il n'y a qu'un tableau, il vaut mieux travailler sur ce tableau, en faisant par exemple :

Code:

---

1 2	Dim monTableau As Range Set monTableau = Worksheets("MaFeuille").Range("B5:F45")

---

Ensuite tu utilises "monTableau" à la place de "Selection".

Si tu ne connais pas le nombre de lignes, il faut regarder du coté de la fonction End(xlUp). Tu trouveras pleins d'exemple dans les tutos, la FAQ ou le forum.

S'il y a plusieurs tableaux et qu'ils peuvent être n'importe où, il faudra vraiment utiliser l'objet Selection comme tu le faisais, mais dans ce cas, les vérifications dépendent du format de ton fichier, de la disposition possible des tableaux... Pars du principe que normalement au moins une cellule est de toute façon selectionnée, ce que tu peux vérifier pour cette cellule ou l'ensemble de cellules c'est la ligne, la colonne, le nombre de lignes, le nombre de colonnes, le contenu...

Et pour ce que tu as ajouté comme modifications à effectuer, le plus simple serait un fichier exemple avec le tableau initial, le tableau final (avec éventuellement plusieurs cas de paramétrage) et une petite explication.

Alors un petit exemple pour essayer d’être plus clair, mais les infos données allaient dans le bon sens! :)
dans le fichier je pars d'un tableau, en sachant que sa taille peut varier en fonction des données récoltées (donc je pense que, tel que tu l'expose, l'utilisation de "selection" est préférable)

en espérant que l'exemple soit parlant, et en attendant avec impatience ta réponse!:D

merci

Alors, je te donne un exemple de ce qu'on pourrait faire. Il existe bien sûr beaucoup d'autres façons, mais l'idée reste la même.

Je persiste à dire qu'il vaut mieux éviter de travailler sur la sélection.

Ceci est bien sûr une base de travail, une piste. A toi de bien comprendre (j'ai essayé de bien commenter) et d'adapter/améliorer.

Voici le code, le fichier est en pièce jointe.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84

Option Explicit   'A mon avis, le cas le mieux ou on part d'un endroit fixe Public Sub CopieTableauEmplacementFixe()   Dim ws As Worksheet Dim rg As Range Dim rg2 As Range Dim lig As Integer Dim col As Integer   Set ws = Worksheets("Tableau départ")   Set rg = ws.Range("B2") 'Le coin supérieur gauche du tableau   lig = ws.Cells(65000, rg.Column).End(xlUp).Row 'Le numéro de la dernière ligne col = ws.Cells(rg.Row, 250).End(xlToLeft).Column 'Le numéro de la dernière colonne   Set rg2 = Range(rg, ws.Cells(lig, col)) 'Tout le tableau   Worksheets("Tableau arrivée").Cells.Clear CopierTableau rg2, Worksheets("Tableau arrivée").Range("B2")   End Sub   'Dangereux à mon avis Public Sub CopieTableauSelectionne()   Worksheets("Tableau arrivée").Cells.Clear CopierTableau Selection, Worksheets("Tableau arrivée").Range("B2")   End Sub   'Effectue les opérations demandées pour un tableau donné, copié à un endroit donné '(Je ne fais pas les mises en forme) Public Sub CopierTableau(tabSource As Range, cellCible As Range)   Dim nLig As Integer, nCol As Integer Dim rg As Range Dim i As Integer Dim nbZones As Integer Dim compteur As Integer Dim colorIndex As Integer   'On commence par récupérer les informations sur le tableau nLig = tabSource.Rows.Count nCol = tabSource.Columns.Count   'On fait une copie vers la cible tabSource.Copy cellCible.Worksheet.Paste cellCible   'On définit la nouvelle plage de travail Set rg = Range(cellCible, cellCible.Offset(nLig, nCol))   'On ajoute les moyennes cellCible.Offset(0, nCol).Value = "Moyenne" For i = 2 To nLig rg.Cells(i, nCol + 1).Value = WorksheetFunction.Average(Range(rg.Cells(i, 2), rg.Cells(i, nCol))) Next i   'On fait le tri rg.Sort key1:=rg.Cells(1, nCol + 1), header:=xlYes, order1:=xlAscending   'On fait la séparation nbZones = InputBox("Nombre de zones ?") 'Je ne gère pas le cas où l'utilisateur rentre n'importe quoi colorIndex = 1 compteur = 1 For i = 2 To nLig If compteur > nbZones Then colorIndex = colorIndex + 1 compteur = 2 Else compteur = compteur + 1 End If   'Ici j'utilise directement la propriété colorIndex, mais on pourrait prendre la couleur dans un tableau 'prédéfini Range(rg.Cells(i, 1), rg.Cells(i, nCol + 1)).Interior.colorIndex = colorIndex + 5 Next i   rg.Worksheet.Activate   End Sub

---

Bonjour,
Merci beaucoup pour ton code!:ccool: j'essaie de tout comprendre (ça va me prendre un peu de temps), mais ça semble bien être ce que je cherche :)
Par contre, je ne met pas le sujet tout de suite en résolu, ayant une dernière opération à effectuer sur le tableau ainsi obtenu(je préfère tout avoir dans un même sujet plutôt que d'en créer un autre pour la fin du programme), mais je préfère assimiler le code déja fait avant.

je reviendrai donc surement à la charge sous peu!

Bonjour,
je reviens pour la dernière partie...
Tout d'abord, pourquoi vaut il mieux ne pas travailler à partir de la sélection? ça me semble plus simple si le tableau ne se trouve pas toujours à la même place, mais si cela peut poser des problèmes...

à partir du tableau obtenu, j'aimerais pouvoir faire des groupes (les plus homogènes possible) comprenant une valeur dans chaque bloc. Manuellement je fais ça par étape, tel que j'ai essayé de l'expliquer dans le fichier exemple.
Je ne sais pas si c'est suffisamment clair et si c'est faisable.

Merci d'avance!

C'est comme tu veux, le seul problème de la sélection c'est qu'effectivement, si tu lances la procédure alors que la sélection n'est pas bonne, ça peut faire des trucs bizarres. Et le seul moyen de contrôler que la sélection est correcte serait de vérifier qu'elle est au bon endroit donc le problème du tableau qui peut bouger reste entier. Mais si tu es le seul à l'utiliser ou si tu donnes des explications très claires, pourquoi pas. C'est juste qu'en plus, il faut bien se rappeler si la sélection doit contenir les en-têtes ou pas...

Pour la suite, pourrais-tu expliquer quel est ton but exact ?
Parce que ce n'est pas très clair. On pourrait bien sûr coder ce que tu as fait sur ta feuille, mais aucun intérêt vu que tu l'as déjà fait à la main. Je suppose qu'il faut donc généraliser ça.

Je crois comprendre que l'idée générale est que si on a p parcelles, on veut créer n groupes (n donné par l'utilisateur) dont les moyennes sont les plus proches possibles.

Ce que tu mets dans ta feuille est une façon d'y parvenir pour ce cas précis, mais ce n'est pas forcément généralisable à toutes les valeurs de p et n. Il y a peut-être d'autres solutions plus efficaces.

Bonjour,
En fait, j'ai p parcelles. sur ces p parcelles, je fait n interventions, et il y a k répétitions (donc k*n=p)
Je partage donc mes données en k groupes (classement des moyennes par ordre croissant), et dans chaque groupe, j'aurais une valeur pour chaque intervention. (dans chaque groupe k j'ai donc une valeur pour chaque n). Je veux en fait que la moyenne des valeur de chaque n intervention soit à peu près égale. j'ai effectivement fait ça à la main, mais si le tableau est grand, cela devient quelque peu laborieux d'où l'idée de passer par une macro! :)

j'espère avoir été un peu plus clair, mais si ce n'est pas le cas, j'essaierai de reformuler tout ça! (ce n'est pas simple)

je crois que c'est à peu près tout ;)

Je ne suis pas sûr de bien comprendre. Pourrais-tu donner les valeurs de n, k et p pour l'exemple dans ton fichier ?

Alors, avec l'exemple, ça donne:
- j'ai p parcelles, p=9
- je fais n interventions, n= 3 (trt1, trt2 et trt3)
- il y a k répétitions, k = 3 (bloc jaune, bloc violet et bloc bleu)

pour la notation finale, j'aurais 101 = bloc 1 (1) et intervention 1 (01)
102 = bloc 1 (1) et intervention 2 (02)
...
301 = bloc 3 (3) et intervention 1 (01)

ais-je réussi à être un peu plus clair? Sinon je cherche une nouvelle formulation :) (je sais que c'est clair pour moi mais que ce n'est pas simple à expliquer)

Bon, après une petite période d'absence, j'ai essayé de m'y remettre... mais je n'arrive pas à trouver la logique nécessaire pour faire les boucles; voilà où j'en suis...
quelqu'un pourrait m'aider?

merci :)

Bonjour,
J'ai bien essayé aussi de passer par des fonctions, mais je n'arrive pas à les appeler!^^' (si c'est possible de les appeler dans une boucle if évidemment)

Bonjour,
toujours moi et mon problème... en fait j'arrive à appeler les fonctions.. enfin je crois.
l'idée était de faire travailler la fonction sur le tableau d'arrivée, mais... et bien je vous joins le document (erreur 91). Un peu brouillon peut être, mais je ne comprend pas encore grand chose au vba, je n'arrive pas à trouver la logique de raisonnement.
Existe t il déjà une solution?

merci

Bonjour,
J'ai une idée pour arriver à ma fin, masi je n'arrive pas à la mettre en place.
Je crée une nouvelle colonne à mon tableau, et dans la boucle if, je voudrais dire "si la cellule de la dernière colonne est vide"... pour vide ce doit être le "", mais je n'arrive pas à coder le "cellule i de la dernière colonne du tableau" (ma boucle if est dans une boucle for i)

Quelqu’un pourrait m'aider au moins pour ça svp?..

Merci :)