Discussion :

[deamonRav]

Bonjour,

Je voudrais pouvoir spécifier un Range de manière a ce que la colonne et ligne peuvent varier.

Code :

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

.Range("A1:A250")

Je sais faire varier la ligne de la façon suivante:

Code :

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

1
2
Dim r as Integer
      .Range("A" & r)

Mais je n'arrive pas à faire varier la colonne.

D'avance merci pour vos réponses.

[edelweisseric]

Bonjour à tous
Bonjour deamonRav

Un exemple parmi d'autres :

Code :

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

1
2
3
4
5
6
7
8
9
Sub essai()
Dim r As Integer, s As Integer 'colonnes
Dim t As Integer, u As Integer 'lignes
r = 1
u = 1
s = 1
t = 4
nb = Application.WorksheetFunction.Count(Range(Cells(r, u), Cells(s, t)).Value)
End Sub

Eric

[casefayere]

Bonjour,
je ne sais pas si c'est ce que tu cherches mais syntaxe:

Code :

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

.Range("A1:A" & r)'si la valeur de r est connue, bien sur

[deamonRav]

Merci pour vos réponse, la deuxième est déjà en application.

Je vais aussi essayer la première.

Bonne journée

[sabzzz]

bonjour deamonRav,

il y a plusieurs méthode,

Code :

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

Range("A" & lign1 & ":A" & lign2)

Code :

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

Range(Cells(lign1, col1), Cells(lign2, col2))

Code :

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

Range(Cells(lign1, "A"), Cells(lign2, "B"))

[Didier Gonard]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Sub brouillon()
 
For i = 1 To 50
   For j = 1 To 50
   Cells(i, j) = "DVP " & i * j
   Next j
Next i
End Sub

cordialement,

Didier