Discussion :

[Nonno 94]

Bonsoir le Forum,

je viens vous demander comment modifier le code ci-dessous pour qu'il sélectionne une plage de cellules comprenant plusieurs lignes.

Code :

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

1
2
3
4
5
6
7
Sub Sélectionner_Plage()
 
              Range("C1").Select
                k = ActiveCell.Value
                l = 1
            Range(Cells(k, l), Cells(k, l + 4)).Select
End Sub

Si la valeur de ("C1") = 6, il sélectionne la plage "A6,E6"

Je voudrais qu'il sélectionne la plage "A6,E12" si la valeur de la 2 ème cellule variable ("C2") est 12.

Je vous remercie pour vos réponses.
Cordialement.

Nonno 94.

[Docmarti]

Bonsoir

Je voudrais qu'il sélectionne la plage "A6,E12" si la valeur de la 2 ème cellule variable ("C2") est 12.

.

Jette un oeil à la section : 3.4. Plages
de la FAQ VBA

http://vb.developpez.com/faqvba/?page=3

[Nonno 94]

Bonjour Docmarti et merci pour votre réponse.

N'ayant pas pour le moment le temps de lire ce tutoriel que j'ai "noté" soigneusement, je vous soumets un code que j'ai "bricolé" et qui fonctionne avec mon classeur.

Le voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Sélectionner_Plage_2()
 
              Range("C2").Select
                k = ActiveCell.Value
                l = 1
 
              Range("C1").Select
                k = ActiveCell.Value
                l = 1
                m = Cells(3, 4)
 
 
            Range(Cells(k, l), Cells(k + m, l + 4)).Select
End Sub

Ainsi, si ("C1") est la 1 ère ligne de la plage à sélectionner, ("C5") la dernière ligne de cette plage et ("D3") ou Cells(3, 4) la différence entre la dernière et la 1 ère ligne, ce code permet de sélectionner la plage souhaitée.

Si ("C1") = 6, ("C5") = 15 et donc ("D3") = 9 (15 - 6), la plage "A6:E15" est bien sélectionnée par ce code.

J'en profite pour vous demander si vous savez comment procéder pour rétablir un affichage normal des pages car, hier, à la suite d'une mauvaise "manip", j'ai réduit la taille des caractères des pages que j'affiche !!

Merci pour tout et bonne journée.

Nonno 94.

[Docmarti]

Voici différentes façons de sélectionner la plage B2:B2.

Tu choisis celle que tu préfères ou qui convient à ton besoin.

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
Sub Sélectionner_Plage_B2()
 
 Range("B2").Select
 
 Cells(2, 2).Select
 
 Range("B2:B2").Select
 
 Range("B2", "B2").Select
 
 Range(Cells(2, 2), Cells(2, 2)).Select
 
 Cells(2, 2).Offset(0, 0).Select
 
 Cells(2, 2).Resize(1, 1).Select
 
End Sub

J'en profite pour vous demander si vous savez comment procéder pour rétablir un affichage normal des pages car, hier, à la suite d'une mauvaise "manip", j'ai réduit la taille des caractères des pages que j'affiche !!

Tu as peut-être modifié le Zoom. Vérifie dans le menu Affichage.

[Nonno 94]

Bonsoir,

les codes proposés ne prennent pas en compte le fait que la plage varie en fonction des valeurs prises par ('"C1"), ('"C2") et m; alors que mon "bricolage" le fait.

Pour l'affichage, le problème n'affecte que les pages du site "Développez.com". Où se trouvent le menu "Affichage" et le zoom du Site ?

Encore merci pour votre ......patience.

Cordialement.