Bonjour,
Je tente par tout les moyens de selectionner une plage de cellules ou les colonnes et les lignes sont non contigues. De plus le nombre de lignes varie car au court du temps j'ajoute des lignes pour rentrer de nouvelles infomations.
Je trouve des reponses a mon probleme soit seulement pour des colonnes non contigues soit seulement pour des lignes non contigues.
Voici un exemple pour mieux comprendre mon probleme :
Je voudrais selectionner mes 4 colonnes ainsi que tout les lignes presentes sachant qu'il y aura toujours un blanc en A1 et que la derniere case en A aura toujours une valeur.A1 : B1 : C1 : D1 : TB A2 : 100 B2 : A C2 : D2 : A3 : 100 B3 : B C3 : D3 : A4 : 100 B4 : B C4 : D4 : A5 : 100 B5 : B C5 : D5 : A6 : 100 B6 : A C6 : D6 : A7 : 100 B7 : A C7 : D7 :
J'ai essaye ce code mais il ne fonctionne pas, c'est bien bizarre :
J'ai alors essaye cette ligne de code (selection cellules non contigues) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ActiveSheet.Rows(8).Select ActiveSheet.Rows(Selection, Selection.End(xlDown)).Select
Mais il s'arrete bien avant en BK8
Code : Sélectionner tout - Visualiser dans une fenêtre à part ActiveSheet.Range("C8", ActiveSheet.Range("FG8").End(xlToLeft)).Select
Du coup j'ai trouve un petit code qui pourrait resoudre mon probleme mais il ne fonctionne pas (error 1004 a la ligne "union") :
Pourriez vous m'aider ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 StartRange = "C8" EndRange = "FG8" Set a = Range(StartRange, Range(StartRange).End(xlDown)) Set b = Range(EndRange, Range(EndRange).End(xlDown)) Union(a, b).Select
Amicalement
Partager