[VBA-E] Problème de range()

Version imprimable

23/03/2007, 11h27
Myogtha

[VBA-E] Problème de range()
Bonjour,

J'ai récuperer le numero de ma derniere ligne dans la variable lig
Code:

1 2 3 4 col = "A" Range(col & "65536").Select Range(Selection, Selection.End(xlUp)).Select lig = Selection.Row
Maintenant que j'ai X dans lig qui est un entier j'aimerai la mettre dans mon range pour faire

Code:

.range(A1:GX)

mais je n'y arrive pas j'ai mis ça mais ça marche pas

Code:

.Range("A7:G&lig")

Merci d'avance
23/03/2007, 11h31
illight

C'est marrant, pour le premier truc tu l'as bien écrit, alors que le second c'est la meme chose et tu l'écrit différemment :D

Code:

.Range("A7:G&lig")

écrit ça plutot :

Code:

.Range("A7:G" & lig)
23/03/2007, 11h34
Invité
Bonjour,

Citation:

Envoyé par illight

C'est marrant, pour le premier truc tu l'as bien écrit, alors que le second c'est la meme chose et tu l'écrit différemment :D

Code:

.Range("A7:G&lig")

écrit ça plutot :

Code:

.Range("A7:G" & lig)

Ce serait plutôt :
Code:

1 2 .Range("A7:G" & lig & "")
Starec
23/03/2007, 11h41
illight

C'est marrant chez moi ça marche très bien sans les guilllemets a la fin :mrgreen:

Merci ça marche par contre il bug ici en jaune

Code:

.Range("G8:G" & lig).Borders(xlInsideVertical).LineStyle = xlContinuous

je vous donne avant après au cas ou :
Code:

1 2 3 .Range("G8:G" & lig).Borders(xlEdgeRight).ColorIndex = xlAutomatic .Range("G8:G" & lig).Borders(xlInsideVertical).LineStyle = xlContinuous .Range("G8:G" & lig).Borders(xlInsideVertical).Weight = xlThin

24/03/2007, 10h39
SfJ5Rpw8

tu ne nous as pas montré le with d'avant... puis ton insecte (le bug) il n'as pas un petit nom ..? ou une désignation ..?
24/03/2007, 11h57
ouskel'n'or

Ce ne serait pas

Code:

.Range("G8:G" & lig).Borders.LineStyle = xlContinuous

voilà mon with :D

Code:

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
33
34
35
    With Worksheets("Feuil1")
        .Range("A7").Value = "Code OF"
        .Range("A7").HorizontalAlignment = xlCenter
        .Range("B7").Value = "Chef Projet"
        .Range("B7").HorizontalAlignment = xlCenter
        .Range("C7").Value = "Code Article"
        .Range("C7").HorizontalAlignment = xlCenter
        .Range("D7").Value = "Désignation"
        .Range("E7").Value = "Date Recption"
        .Range("E7").HorizontalAlignment = xlCenter
        .Range("F7").Value = "Qté en Stock"
        .Range("F7").HorizontalAlignment = xlCenter
        .Range("G7").Value = "Delta"
        .Range("G7").HorizontalAlignment = xlCenter
        .Range("D:D").ColumnWidth = 85.57
        .Range("A7:G7").Interior.ColorIndex = 15
        .Range("A7:G7").Interior.Pattern = xlSolid
        .Range("G8").FormulaR1C1 = "=DATEDIF(RC[-2],NOW(),""d"")"
        .Range("G8").AutoFill Destination:=Range("G8:G" & lig), Type:=xlFillDefault
        .Range("E7:G7").HorizontalAlignment = xlCenter
        ....
        .Range("E7:G7").MergeCells = False
        ......
        .Range("G8:G" & lig).Borders(xlEdgeBottom).Weight = xlThin
        .Range("G8:G" & lig).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
        .Range("G8:G" & lig).Borders(xlEdgeRight).LineStyle = xlContinuous
        .Range("G8:G" & lig).Borders(xlEdgeRight).Weight = xlThin
        .Range("G8:G" & lig).Borders(xlEdgeRight).ColorIndex = xlAutomatic
        .Range("G8:G" & lig).Borders(xlInsideVertical).LineStyle = xlContinuous
        .Range("G8:G" & lig).Borders(xlInsideVertical).Weight = xlThin
        .Range("G8:G" & lig).Borders(xlInsideVertical).ColorIndex = xlAutomatic
        .Range("G8:G" & lig).Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Range("G8:G" & lig).Borders(xlInsideHorizontal).Weight = xlThin
        .Range("G8:G" & lig).Borders(xlInsideHorizontal).ColorIndex = xlAutomatic
    End With

26/03/2007, 09h49
ouskel'n'or

C'est marrant mais chez moi, tout ça

Citation:

.Range("G8:G" & lig).Borders(xlEdgeBottom).Weight = xlThin
.Range("G8:G" & lig).Borders(xlEdgeBottom).ColorIndex = xlAutomatic
.Range("G8:G" & lig).Borders(xlEdgeRight).LineStyle = xlContinuous
.Range("G8:G" & lig).Borders(xlEdgeRight).Weight = xlThin
.Range("G8:G" & lig).Borders(xlEdgeRight).ColorIndex = xlAutomatic
'.Range("G8:G" & lig).Borders(xlInsideVertical).LineStyle = xlContinuous
'.Range("G8:G" & lig).Borders(xlInsideVertical).Weight = xlThin
'.Range("G8:G" & lig).Borders(xlInsideVertical).ColorIndex = xlAutomatic
.Range("G8:G" & lig).Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Range("G8:G" & lig).Borders(xlInsideHorizontal).Weight = xlThin
.Range("G8:G" & lig).Borders(xlInsideHorizontal).ColorIndex = xlAutomatic

peut être remplacé par une ligne

Code:

.Range("G8:G" & lig).Borders.LineStyle = xlContinuous

Avec ton code, j'ai une erreur sur ces trois lignes

Citation:

.Range("G1:G" & Lig).Borders(xlInsideVertical).LineStyle = xlContinuous
.Range("G1:G" & Lig).Borders(xlInsideVertical).Weight = xlThin
.Range("G1:G" & Lig).Borders(xlInsideVertical).ColorIndex = xlAutomatic

Message : "Impossible de définir la propriété LineStyle de la classe border"

Je viens de comprendre pour InsideVertical... En fait je n'avais pas capté...
Pour utiliser InsideVertical, tu dois avoir plusieurs colonnes puisque que cette bordure désigne celle qui sépare les colonne alors que tu ne formates qu'une seule colonne (G). Ça peut pas ;)