Discussion :

[Nheude]

Bonjour,

J'ai un petit problème qui doit être sans doute très simple à résoudre :

Dans mon code VBA je voudrais sectionné une plage de cellule pour cela j'utilise :

Code :

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

range("B4:K4").Select

sauf que dans ma situation je voudrai que la ligne soit définit par une variable :

Code :

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

1
2
3
Dim LIGNE As Byte
    LIGNE = Range("G14").Value
    Range("B" & LIGNE & ":" & "K" & LIGNE).Select

C'est la que je n'arrive plus, lorsque que je le fais avec une cellule ça marche mais avec une plage de cellule ça ne marche pas.

Merci d'avance pour votre aide,
Cordialement.
Nheude.

[parmi]

Bonjour,

Il faudrait voir ce que retourne ta variable LIGNE

Plutôt que Byte, aussi bien y aller avec Long.
Les systèmes d'aujourd'hui sont beaucoup plus performants qu'il y a 20 ans...
Et quand on parle de lignes, on parle de millions possibles, donc Long

Ceci devrait fonctionner si LIGNE renvoie bien un nombre

Code :

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

Range("B" & LIGNE & ":K" & LIGNE).Select

Ceci dit, évite les Select lorsque possible, soit à peu près toujours

[Thautheme]

Bonsoir Nheude, bonsoir le forum,

To code est tout a fait correct, toutefois la déclaration de la variable LIGNE comme byte limite à la ligne 255. Si tu dois aller au-delà il faut la déclarer comme Integer. Que signifie : ça ne marche pas ?

[beta007]

hello,
tu peux égalemment travailler avec "Cells(x,x)" qui permet de remplacer les deux "x" par des variables par exemple "Ligne, Colonne" pour facilité la lecture du code ou comme dans l'exemple ci-dessous uniquement le "x" des colonnes.

Code :

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

1
2
3
 dim Colonne as byte
Colonne=Range("G14").value
Range(Cells(2,Colonne),Cells(11,Colonne))

attention de bien mettre "," entre les deux Cells et non pas ";" sinon cel ne fonctionne pas!

[eriiic]

Bonjour,

ou avec Offset :

Code :

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

1
2
3
Dim ligne as Long
ligne=Range("G14").Value
range("B1:K1").offset(ligne-1).Select

Pour enfoncer un peu plus le clou :-) les .select sont à éviter quand on peut, c'est à dire dans 99% des cas.
eric

[Nagel Tha]

Bonjour,

Première chose : sauf si absolument nécessaire, bannir les .Select et .Activate.

Il y a plusieurs façons de faire ce que tu veux.

Code :

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

1
2
3
4
5
6
7
' exemple :
Dim Ligne, Colonne As Integer
ActiveSheet.Cells(Ligne, Colonne). Select 'une cellule de coordonnées (Ligne ; Colonne) est sélectionnée
ActiveSheet.Range(ActiveSheet.Cells(1,1), ActiveSheet.Cells(Ligne, Colonne)).Select 'une plage allant de la cellule A1 à la cellule de coordonnées (Ligne ; Colonne) est sélectionnée
 
ActiveSheet.Range("A" & Ligne).Select 'sélectionne la cellule de coordonnées (Ligne ; 1)
ActiveSheet.Range(ActiveSheet.Range("A1"), ActiveSheet.Range("C" & Ligne)).Select 'sélectionne une plage allant de la cellule A1 à la cellule de coordonnées (Ligne ; 3)

J'espère que cela t'aide. Je compléterai si besoin avec d'autres exemples. Je te suggère de lire la documentation MSDN également

[beta007]

bonjour,
vos messages m’interpelle;

Première chose : sauf si absolument nécessaire, bannir les .Select et .Activate.

Il y a plusieurs façons de faire ce que tu veux.

ActiveSheet.Range(ActiveSheet.Cells(1,1), ActiveSheet.Cells(Ligne, Colonne)).Select 'une plage allant de la cellule A1 à la cellule de coordonnées (Ligne ; Colonne) est sélectionnée

j'ai l'impression que vous vous contredite; ne pas employer .Select et les solutions que vous proposez sont toutes avec des .Select
ai-je loupé quelque chose, car personnellement je ne vois pas comment ne pas employer les .Select!
merci de vos éclaircissements .

[MarcJinger]

Bonsoir, je m'incruste car je tourne en rond grave (du fait de ma méconnaissance dramatique de vba évidemment) : je n'arrive pas à sélectionner une plage de cellules (contigües et sur la même ligne), en fonction d'une cell active quelconque ; jusqu'ici j'utilisais un brave :
r = ActiveCell.Row
Range(Cells(r, 4), Cells(r, 48)).Select
etc.
mais là je me fais jeter ; mon "r" n'est pas/plus reconnu dans un petit projet tout bête (pourtant je ne crois pas avoir eu à le déclarer dans les précédentes macros bidouillées jusqu'ici)... Si quelqu'un a la bonté de palier à mon ignardise, qu'il en soit remercié au centuple...

[parmi]

Peut-être que tu devrais spécifier le nom de la feuille

With Sheets("Nom de la feuille")
r = .ActiveCell.Row
.Range(.Cells(r, 4), .Cells(r, 48)).Select
End With

À noter les points
Aussi éviter les Select. Il y a tout plein d'exemples ici selon ce que tu veux faire sans faire de Select.

[MarcJinger]

Peut-être que tu devrais spécifier le nom de la feuille

With Sheets("Nom de la feuille")
r = .ActiveCell.Row
.Range(.Cells(r, 4), .Cells(r, 48)).Select
End With

À noter les points
Aussi éviter les Select. Il y a tout plein d'exemples ici selon ce que tu veux faire sans faire de Select.

Merci ! Mais il coince toujours sur r =.ActiveCell.Row --> erreur de compilation, "variable non définie"...

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
30
31
32
Private Sub NewEventInput_Click()
 
With Sheets("BaseTARG")
r = .ActiveCell.Row
.Range(.Cells(r, 4), .Cells(r, 48)).Select
 
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.14996795556505
        .PatternTintAndShade = 0
    End With
 
Call gestion_FormBaseTARG.transferer_valeurs_FormBaseTARG
 
Call gestion_FormBaseTARG.remplir_FormBaseTARG
 
Sheets("BaseLeaderBoard").Activate
Rows(6).Insert
 
Sheets("BaseLeaderBoard").Activate
 
Range("D6").Select
 
ActiveCell = LaBoxDateSaisie.Value
ActiveCell.Offset(0, 1) = ComboBoxSource.Value
ActiveCell.Offset(0, 5) = boxdénom.Value
ActiveCell.Offset(0, 15) = boxca.Value
ActiveCell.Offset(0, 16) = BoxCodeTARG.Value
ActiveCell.Offset(0, 17) = boxdénom.Value
etc.