Discussion :

[Myogtha]

Bonjour,

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

Code :

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

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 :

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

.range(A1:GX)

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

Code :

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

.Range("A7:G&lig")

Merci d'avance

[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

Code :

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

.Range("A7:G&lig")

écrit ça plutot :

Code :

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

.Range("A7:G" & lig)

[Invité]

Bonjour,

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

Code :

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

.Range("A7:G&lig")

écrit ça plutot :

Code :

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

.Range("A7:G" & lig)

Ce serait plutôt :

Code :

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

1
2
 
.Range("A7:G" & lig & "")

Starec

[illight]

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

[Myogtha]

Merci ça marche par contre il bug ici en jaune

Code :

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

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

je vous donne avant après au cas ou :

Code :

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

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

[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 ..?

[ouskel'n'or]

Ce ne serait pas

Code :

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

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

[Myogtha]

voilà mon with

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
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

[ouskel'n'or]

C'est marrant mais chez moi, tout ça

.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 :

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

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

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

.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