Discussion :

[Nonno 94]

Bonjour le Forum,

pouvez-vous me dire comment modifier le code ci-dessous pour sélectionner :
- la ligne "k" entière ou
- la colonne "l" entière ?

Code :

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

1
2
3
            Range("C5").Select                                         'Ligne à sélectionner
                k = ActiveCell.Value        'k = ligne, l = colonne
            Range(Cells(k, 1), Cells(k, 50)).Select

Avec mes remerciements pour vos réponses.
Cordialement.

Nonno 94.

[Philippe Tulliez]

Bonjour,
Il faut utiliser les propriétés EntireRow et EntireColumn de l'objet Range

Code :

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

1
2
Range("C8").EntireRow.Select
Range("C8").EntireColumn.Select

J'ajouterais qu'en programmation en VBA, les méthodes Select, Activate, etc... sont à proscrire. Elles ralentissent l'exécution du programme, sont inutiles.

[Phil'oche]

Salut,

Plusieurs solutions :

Code :

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

feuil1.Range("TaCellule").EntireColumn et feuil1.Range("TaCellule").EntireRow

ou simplement

Code :

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

feuil1.Rows("TonNumeroDeLigne") et feuil1.Columns("TonNumeroDeColonne")

[Nonno 94]

Bonjour Messieurs et merci pour vos réponses.

Malheureusement, je ne parviens à intégrer aucune de vos propositions pour sélectionner la ligne "k" ou la colonne "l" de la cellule [C5] dans le code complet ci-dessous.

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 Worksheet_Change(ByVal Target As Range)
 
    If [B5] <> "" Then
 
        If MsgBox("Voulez-vous sélectionner la ligne des Données de la Valeur " & Chr(10) & [B5] & " maintenant ?", vbYesNo + vbQuestion, "R's IG - COURS (Historique)") = vbNo Then
 
                MsgBox "Procédure ajournée. Au revoir.", vbOKOnly, "R's IG - Historique de Cours"
 
 
            Else
 
                Classt_Alpha
 
            Range("C5").Select                                         'Ligne à sélectionner
                k = ActiveCell.Value        'k = ligne, l = colonne
                l = ActiveCell.Value
 
            Range(Cells(k, 1), Cells(k, 50)).Select
 
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.SmallScroll ToRight:=14
 
        End If
 
    End If
 
End Sub

La feuille concernée est la "feuil13 (Evolutions (Critères))"

Pouvez-vous me dire comment modifier mon code ?

Remerciements.

[keygen08]

Bonjour,
N'y aurait t-il pas un petit melange entre B5 ET C5

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
    If [b5] <> "" Then
        If MsgBox("Voulez-vous sélectionner la ligne des Données de la Valeur " & Chr(10) & [b5] & " maintenant ?", vbYesNo + vbQuestion, "R's IG - COURS (Historique)") = vbNo Then
                MsgBox "Procédure ajournée. Au revoir.", vbOKOnly, "R's IG - Historique de Cours"
            Else
                Classt_Alpha
 
            Rows([b5].Value).Select
 
        End If
    End If
End Sub

[Nonno 94]

Bonjour keygen08 et merci pour votre réponse.

N'y aurait t-il pas un petit melange entre B5 ET C5

Non, il n'y a pas de mélange.
Oui, votre modification de code répond parfaitement à ma demande.

Alors, BRAVO et

Cordialement.

Nonno 94.