Discussion :

[Matrixmax]

Bonjour;

J'ai un ptit probléme de selection de plage je veux à travers ce code selectionne le reste de mon tableau quand je trouve une cellule dans l'entéte contenant une valeur précise ( fils , ou vide) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
Private Sub CommandButton1_Click()
 
Dim cell As Range
 
For Each cell In Range("C9:AH9")
 
If cell.Value = "Fils" Or cell.Value = "Vide" Then
    cell.Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
 
    End
 
else
 
Next cell
 
End If
 
 
End Sub

Mais J'ai un probléme lors de la selection la plage selectioner se répéte et l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range(Selection, Selection.End(xlDown)).Select

*

ne se refére pas à la selection précédente , J'ai essayé de faire l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 selection(Selection, Selection.End(xlDown)).Select

Merci de me donner une solution .. !!

[enernaej]

Bonjour,

Je ne sais pas ce que vous voulez faire, mais en tout cas un xlDown donc vers le bas, ne vous donnera pas la sélection précédente (vers le haut).

Pouvez-vous nous donner la structure de votre fichier et expliquer simplement ce que vous voulez faire.

Merci.

[Matrixmax]

Bonjour,

Je pense que je me suis male exprimé , bon je veux la syntaxe qui rajout la selection à celle précédente , je veux selectionne une partie d'un tableaux qui varrie en fonction de la cellule selectionné au départ , et pour en faire j'ai utilisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
 
Private Sub CommandButton1_Click()
 
Dim cell As Range
 
For Each cell In Range("C9:AH9")
 
If cell.Value = "Fils" Or cell.Value = "Vide" Then
'Le probléme est ici ... pour la selection à ce niveau ... Chaque ligne de code ne dépend pas de la ligne précédente .. Or mon tableau comme claire ci-joint est construit de plusieurs tableau l'un aprés l'autre
 
 
cell.Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
 
 
 
 
    End
 
End If
 
Next cell
 
End Sub

Mon besoin et de trouver le code qui me selectionne le reste de mon tableau à droite et en bas au moment ou ma condition if devient vrai ..

J'espére étre le plus claire possible

Merci d'avance

[gFZT82]

Bonjour Matrixmax, Enernaej, le forum

Si j’ai bien compris, la plage à sélectionner est délimitée comme cela :
- les colonnes sont celles qui contiennent " Fils" ou "Vide" dans la ligne 9.
- La première ligne est la ligne 9.
- La dernière ligne est celle du premier tableau.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim cell As Range
Dim ColDebut As Integer, ColFin As Integer
Dim DerLig As Long
Const PremLig = 9
    DerLig = Range("A9").End(xlDown).Row
    For Each cell In Range("C9:AH9")
        If cell.Value = "Fils" Or cell.Value = "Vide" Then
            If ColDebut = 0 Then ColDebut = cell.Column
            ColFin = cell.Column
        End If
    Next cell
    Range(Cells(PremLig, ColDebut), Cells(DerLig, ColFin)).Select
End Sub

Cordialement.

[Matrixmax]

Bonjour Monsieur;

Le code ne marche pas au niveau de cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Range(Cells(PremLig, ColDebut), Cells(DerLig, ColFin)).Select

Or , pour bien exprimer mon besoin

je veux une fois le progamme me trouvera une cellule dans la ligne 9 contiennent " Fils" ou "Vide" im me selectionnera tout le rest de mon tableau ainsi que les tableau au dessus de ce dernier on partant par la cellule contenant la premiére "fils" ou "vide"


merci pour l'iterrét que tu donne à mon sujet

[gFZT82]

Le plus simple, c'est que tu joignes le classeur avec la plage colorée afin que l'on puisse visualiser ce que tu recherches.

Cordialement.

[Matrixmax]

Rebonjour,


trés bonne idée

la selection devras étre le reste des cellule "à droite et en bas" de la plage ("C9:AH29") une fois le programme trouve "fils" ou "vide" dans le contenu d'une cellule de la ligne 9

alors dans cet exemple ci-joint , la plage coloré en jaunne est celle concerné par la selection , elle débute par la cellule contenant la valeur "fils" ,

par ailleurs il se peut que la selection change si l'enplacement de "fils" change dans la ligne 9



Merci encore une fois !!