Etendre ActiveCell à une sélection multiple

Bonjour à tous,

J'espère pouvoir trouver sur ce forum des réponses à mes questions. Je vous remercie par avance pour le temps que vous me consacrerez.

Je dispose d'une macro très simple dont le but est de copier / coller une formule d'une plage aux coordonnées fixes vers une plage définie par l'utilisateur (identifier grâce à Active cell).

Pour améliorer ma macro, j'aimerais que cette macro ne s'applique pas seulement à la cellule active mais à une sélection d'une à plusieurs celulles.

Voici un fichier pour illustrer mon problème Pièce jointe 168772

PS : si l'on se positionne sur une ligne (ligne 9 par exemple), la macro s'applique. J'aimerais pouvoir faire fonctionner la macro en boucle sur l'ensemble des lignes que sélectionnerait l'utilisateur, or si je sélectionne les lignes 9 et 10, la macro ne s'applique que sur la ligne 9.

Il y a une contrainte (identifiée en colonne B), si il y a une "x", la macro s'arrête. J'aimerais que la commande s'applique sur chaque ligne sélectionnée en intégrant cette contrainte (si "x", tu appliques le code, si pas de "x", tu passes à la ligne suivante... etc jusqu'à la dernière ligne sélectionnée).

Donc à ce jour, la macro fonctionne mais l'utilisateur doit faire la manipulation ligne à ligne, ce qui est un peu fastidieux.

Merci d'avance

Bonjour,
La sélection d'une cellule ou d'une plage de cellules est représentée par l'objet Selection et ActiveCell est l'objet représentant la cellule active. C'est exactement ce qui se passe lorsque l'on sélectionne manuellement une plage de cellules.

Citation:

---

Il y a une contrainte (identifiée en colonne B), si il y a une "x", la macro s'arrête. J'aimerais que la commande s'applique sur chaque ligne sélectionnée en intégrant cette contrainte (si "x", tu appliques le code, si pas de "x", tu passes à la ligne suivante... etc jusqu'à la dernière ligne sélectionnée).

---

Pour cela, il faut utiliser une structure conditionnelle telle que If ou Select...Case

Bonjour Philippe,

Oui je comprends l'utilisation de ActiveCell que j'exploite dans mon code pour identifier la ligne active sur laquelle appliquer mon code.
J'ai aussi utilisé IF pour conditionner l'application de ce code.

Je ne comprends cependant pas comment appliquer ce code sur une sélection "active", je sélectionne les lignes 2 à 10, mon code s'applique sur la ligne 2, puis la ligne 3... jusqu'à la ligne 10...

C'est là que je bloque.

Code:

---

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

Sub Macro()   Dim L As Long, R As Range L = ActiveCell.Row   Application.ScreenUpdating = False   If Cells(L, 2) <> "x" Then Exit Sub   For Each R In Range("D7,F7,H7,J7,L7") R.Copy Cells(L, R.Column)   Next   Calculate Application.ScreenUpdating = True   End Sub

---

Bonjour,

Citation:

---

J'ai aussi utilisé IF pour conditionner l'application de ce code.

---

Je n'ai pas examiné l'ensemble de ta procédure mais est-ce normal de faire le test de la présence d'un X en dehors de la boucle ?
D'après moi, non

Citation:

---

Je ne comprends cependant pas comment appliquer ce code sur une sélection "active", je sélectionne les lignes 2 à 10, mon code s'applique sur la ligne 2, puis la ligne 3... jusqu'à la ligne 10...

---

D'après ma première lecture, tu sélectionnes une colonne sur deux et seulement la ligne 7 ("Range("D7,F7,H7,J7,L7")").

Bonjour,

Essayez avec votre code modifié

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Macro() Dim Plage As Range Dim C As Range Dim L As Long Dim R As Range '--- If TypeName(Selection) <> "Range" Then Exit Sub Set Plage = Selection Application.ScreenUpdating = False '--- For Each C In Plage L = C.Row If Cells(L, 2) = "x" Then For Each R In Range("D7,F7,H7,J7,L7") R.Copy Cells(L, R.Column) Next R End If Next C '--- Calculate Application.ScreenUpdating = True End Sub

---

Philippe,

Le test de condition "X" devrait effectivement être intégré dans la boucle, mais pour l'instant je n'arrive pas à créer cette boucle à l'intérieur d'une sélection de plage.

Donc la plage de référence qui contient les formules à copier est fixe (1 colonne sur 2 et la ligne 7). Pour cela pas de problème. Le code doit donc faire un copier/ coller très basique de cette plage de référence ("Range("D7,F7,H7,J7,L7")"), vers une plage dont les coordonnées sont déterminés par la ligne active.

Code:

---

1 2	For Each R In Range("D7,F7,H7,J7,L7") R.Copy Cells(L, R.Column)

---

.

Le défi, c'est de pouvoir copier ces formules vers une première ligne (corresponsant à la première ligne de ma sélection), puis de passer à la ligne suivante et ce jusqu'à la dernière ligne selectionnée par l'utilisateur.

Si en plus, la condition rentrait dans la boucle, alors ce serait parfait, mais bon ce n'est pas là le véritable enjeu.

Je suis un bricoleur en VBA, je n'ai aucune formation, donc mes préoccupations peuvent paraître futiles et j'essaie de progresser via des forums comme celui-ci...
Merci encore du temps que tu consacres à mon post.

Bonjour,
Si j'ai bien compris, tu voudrais copier des lignes d'une plage de cellules contiguës en les insérant dans des cellules non contiguës. J'avoue ne pas très bien saisir la finalité de cette procédure.
Voici en guise d'exemple, une procédure qui parcourt des cellules non contiguës (K2, K4, K6 et K8) et qui affiche un message si une de ces cellules contient un "X"

Code:

---

1 2 3 4

Dim c As Range For Each c In Range("K2,K4,K6,K8") If LCase(Trim(c)) = "x" Then MsgBox "Un x à l'adresse " & c.Address Next

---

Je vais au moins t'expliquer à quoi sert ce fichier, et cette commande.
J'ai un tableau qui correspond à un prévisionnel de dépenses. Les utilisateurs doivent remplir à la main les dépenses qu'ils prévoient sur une période de 12 mois. En ligne, nous avons des types de dépenses, en colonne des mois.

Voici un screen shot du tableau en question Pièce jointe 168797

Certaines dépenses sont récurrentes, donc pour éviter que l'utilisateur reporte le même montant sur les 12 mois, j'ai crée ce bouton qui permet de reprendre un montant (colonne J) et de le reporter sur toute la ligne dans des cellules (non contigues) prévues à et effet. L'utilisateur doit pouvoir quand même modifier ces cellules (je ne veux donc pas les protéger) et la macro veux à nouveau utiliser cette fonction de report automatique (c'est pour cette raison que j'ai besoin d'une macro).

La macro permet de recréer la formule de base.

Mon challenge c'est de fiare en sorte que la macro agisse non pas sur la ligne active ou la première ligne d'une sélection, mais sur toutes les lignes sélectionnées. Cela laisserait la possibilité de faire ligne à ligne ou de faire une mise à jourtrès rapide du fichier en sélectionnant toutes les lignes du tableau.

J'avais crée un fichier pour simplifier la lecture (celui en pj). Je pense que c'est plus simple de l'utiliser pour voir ce qui se passe dans mon code et je suis certain que tu comprendras ce que je cherche.

Je comprendrais aussi que tu aies autre chose à faire auquel cas je me contenterais du code actuel qui fonctionne

@ Barbenault
Cela vous arrive de tester toutes les pistes qui vous sont proposées ?
Voir message #5

Merci PMO2017,

Mille excuses, je n'avais pas vu ton message, toute aide est précieuse, je regarde cela tout de suite.

C'est exactement ce qu'il me fallait. Je suis confus de n'avoir pas vu ton message plus tôt. Je te remercie encore, tu me rends un grand service. Non seulement mon fichier est optimisé, mais en plus j'ai appris quelquechose.

Merci

PS : merci aussi à Philippe d'avoir essayé de me comprendre.

Bonjour,
Bien que je privilégie les feuilles de données organisées comme des tables en Access et pas comme des tableaux de bord ou formulaire, voici un petit exemple
Pour cet exemple, les données à copier doivent se trouver en colonne J et la sélection des lignes doit se faire sur cette même colonne.
Par exemple en sélectionnant J3, J7, J11 et J12, la copie des données sélectionnées se fera sur les colonnes K, N, Q, etc. de cette même ligne.
La procédure ne contrôle pas s'il n'y a rien dans la cellule sélectionnée et ne contrôle que la colonne source (Colonne J)

Code:

---

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

Sub T() Dim Cel As Range, Col As Integer ' Contrôle si la cellule active est bien la colonne J If ActiveCell.Column <> 10 Then MsgBox "La colonne sélectionnée n'est pas la bonne": Exit Sub End If For Each Cel In Selection With Cel If .Column = 10 Then ' Ctrl si cette cellule sélectionnée est bien en colonne J For Col = 1 To 36 Step 3 .Offset(columnoffset:=Col).Value = .Value Next End If End With Next Cel End Sub

---

Merci Philippe pour cette dernière contribution, je pense qu'elle pourrait m'être utile. C'est effectivement intéressant de tester la colonne active. Je pourrais l'adapter à mon besoin. En l'occurrence je vais rester avec la proposition de PMO2017 qui correspond exactement à mon besoin.

Merci encore.