Selection de plage non contigues sur une même ligne

[christ91]

Bonjour,


je cherche à sélectionner une plage de cellule sur une feuille. dans l'exemple en pièce jointe, il faut partir de la cellule "début sélection" jusqu’à la cellule "fin sélection" entre les 2 cellules des nombres ou cellule vides.

le but final est de sélectionner toute la plage et la coller sur une autre feuille.

J'ai fait plein de test et de recherche mais je n'arrive pas à trouver...

Merci par avance de votre aide

 

[Si...]

Re : Selection de plage non contigues sur une même ligne

salut

une fois sélectionnée la première plage, garder la touche Ctrl appuyée et sélectionner l'autre plage. Ctrl C pour copier et Ctrl V pour coller ailleurs.

 

[christ91]

Re : Selection de plage non contigues sur une même ligne

Merci ...je crois que je n'ai pas été suffisament précis dans ma demande....

Je veux faire cela dans une macro

 

[Pierrot93]

Re : Selection de plage non contigues sur une même ligne

Bonjour,

Je veux faire cela dans une macro

regarde ceci :

Option Explicit
Sub Macro1()
    Sheets("Feuil1").Range("F5:J5,L5:N5,P5,S5").Copy Sheets("Feuil2").Range("A1")
End Sub

bonne journée
@+

 

[pierrejean]

Re : Selection de plage non contigues sur une même ligne

Bonour christ

Salut SI...
Salut Pierrot

Un essai

 

[christ91]

Re : Selection de plage non contigues sur une même ligne

Bonjour,

Merci pour vos solutions, pour ta solution Pierrot93, mon probléme est que je dois faire fonctionner ça dans une base de donnée, donc le numero de ligne change.

pour la solution de Pierre-Jean, c'est aussi pareil, avec en plus le fait que lors de la recopie je dois conserver les cellules vides.

Dans le mode de fonctionnement que je recherche, je demande à l'utiliseur de selectionner la ligne à recopier en cliquant sur la cellule contenant un titre (ce titre est soit en ligne A5 ou B5 ou C5......etc)
ensuite je dois selectionner une plage qui va de la cellule activée par l'utilisateur jusqu'à la derniere cellule non vide de la ligne, en prenant en compte le fait qu'il peut y avoir des cellules vides dans la ligne
et enfin recopier cette plage dans une autre feuille (a la première ligne vide rencontrée) en conservant les cellules vides.

j'ai bien essayé en essayant de récuperer les adresses de la cellule selectionnée et de la dernière cellule non vide de la ligne, pour définir une range, mais je ne dois pas avoir la bonne syntaxe
merci de votre aide

 

[Pierrot93]

Re : Selection de plage non contigues sur une même ligne

Re, bonjour PierreJean🙂

essaye ceci :

Range(ActiveCell, Cells(ActiveCell.Row, Columns.Count).End(xlToLeft)).Copy _
    Destination:=Sheets("Feuil2").Range("A65536").End(xlUp)(2)

 

[pierrejean]

Re : Selection de plage non contigues sur une même ligne

Re

Cas typique ou la difficulté n'est pas d'avoir une solution mais un énoncé correct du problème !!!!

 

[christ91]

Re : Selection de plage non contigues sur une même ligne

Désole PierreJean....je ferai mieux la prochaine fois...

Merci Pierrot93, ça fonctionne pour la partie selection c'est c'est nickel.
par contre pour la partie recopie, le code ne fonctionne pas:
_Destination:=Sheets("feuil2").range("A65536").End(xlUp)(2)
j'ai donc adapté c'est super merci beaucoup !

 

[Pierrot93]

Re : Selection de plage non contigues sur une même ligne

Re,

par contre pour la partie recopie, le code ne fonctionne pas:
_Destination:=Sheets("feuil2").range("A65536").End (xlUp)(2)

bah.. fonctionne pourtant chez moi....

 

[christ91]

Re : Selection de plage non contigues sur une même ligne

chez moi, la macro s'arrête à la copie.
ensuite plus rien.

 

[Pierrot93]

Re : Selection de plage non contigues sur une même ligne

Re,

A noter qu'il s'agit là d'une seule et même instruction (sur une seule ligne), l'underscore(_) est placé afin d'effectuer un retour à la ligne, ce pour une meilleure lisibilité....