Selection automatique variable

Version imprimable

Bonjour

Voilà une macro excel où je selectionne 4 colonnes ...Range("F:K").Select... seulement je ne voudrais selectionner automatiquement que les lignes et colonnes non vides, c'est à dire jusqu'à la derniere ligne du fichier. Je pensais utiliser ceci

Code:

Selection.SpecialCells(xlCellTypeLastCell).Select

qui me donne la derniere cellule puis le stocker dans une variable mais de quel type? et ensuite utiliser cette variable pour faire une selection de la cellule A1 à cette variable

Code:

Range("A1...variable).Select

Mais j'ai essayé pas mal de syntaxe sans succés
Pouvez vous m'aider svp

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
36
37
38
39
40
41
42
43
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 16/10/2007 par sncf
'
' Touche de raccourci du clavier: Ctrl+a
'
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
        Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
        DecimalSeparator:=".", TrailingMinusNumbers:=True
 
    Range("A:A,D:D,E:E").Select 'selection colonnes A D E
    Selection.EntireColumn.Hidden = True 'masque la selection
    Range("F2").Select 'selectionne la cellule F2
    ActiveCell.FormulaR1C1 = "=IF(RC[-2]>45,1,0)" 'y integre la formule si >45 alors 1
    Range("G2").Select 'selectionne la cellule G2
    ActiveCell.FormulaR1C1 = "=IF(RC[-3]<55,1,0)" 'y integre la formule si <55 alors 1
    Range("H2").Select 'selectionne la cellule H2
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"  'y integre la formule G2*H2
    Range("I2").Select 'selectionne la cellule I2
    ActiveCell.FormulaR1C1 = "=IF(RC[-5]>95,1,0)"  'y integre la formule si >95 alors 1
    Range("J2").Select 'selectionne la cellule J2
    ActiveCell.FormulaR1C1 = "=IF(RC[-6]<105,1,0)"  'y integre la formule si <105 alors 1
    Range("K2").Select 'selectionne la cellule K2
    ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"  'y integre la formule I2*J2
    Range("F2:K2").Select 'selectionne toutes les formules
    Selection.Copy 'les copient
    Range("F:K").Select 'selectionne les colonnes correspondantes
    ActiveSheet.Paste 'les posent
    Range("B1").Select 'selectionne cellule B1
    ActiveCell.FormulaR1C1 = "Jour" 'y inscrit Jour
    Range("C1").Select 'selectionne cellule C1
    ActiveCell.FormulaR1C1 = "Heure" 'y inscrit Heure
    Range("H1").Select 'selectionne cellule H1
    ActiveCell.FormulaR1C1 = "Defaut" 'y inscrit Defaut
    Range("K1").Select 'selectionne cellule K1
    ActiveCell.FormulaR1C1 = "Marche" 'y inscrit Marche
    Range("F:G,I:J").Select 'selectionne colonnes F G I F
    Selection.EntireColumn.Hidden = True 'les masquent
    End Sub

22/10/2007, 10h19
Oussbaba au rhum
Citation:

Envoyé par tardieub

Bonjour

Code:

Range("A1...variable).Select

bonjour,
a priori ce type de code ne fonctionne pas(en tout cas, moi j'ai pas reussi:oops:)

je suis passé par une variable
Code:

1 2 3 cell = "E" & g & ":" & "K" & g ActiveSheet.Range(cell).Value = ""
22/10/2007, 11h14
tardieub
Citation:
Envoyé par Oussbaba au rhum

bonjour,
a priori ce type de code ne fonctionne pas(en tout cas, moi j'ai pas reussi:oops:)

je suis passé par une variable

Code:

1 2 3 cell = "E" & g & ":" & "K" & g ActiveSheet.Range(cell).Value = ""
si je comprends bien g est la ligne mais comment je l'extrait de
Selection.SpecialCells(xlCellTypeLastCell).Select

bonjour tardieub,

En supposant que ta colonne D est remplie, tu peux remplacer ton code par ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Macro1()
    Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
        Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
        DecimalSeparator:=".", TrailingMinusNumbers:=True
 
    Range("A:A,D:D,E:E").EntireColumn.Hidden = True 'masque la selection
    Range("F2:F" & [D65000].End(xlUp).Row).FormulaR1C1 = "=IF(RC[-2]>45,1,0)" 'y integre la formule si >45 alors 1
    Range("G2:G" & [D65000].End(xlUp).Row).FormulaR1C1 = "=IF(RC[-3]<55,1,0)" 'y integre la formule si <55 alors 1
    Range("H2:H" & [D65000].End(xlUp).Row).FormulaR1C1 = "=RC[-2]*RC[-1]" 'y integre la formule G2*H2
    Range("I2:I" & [D65000].End(xlUp).Row).FormulaR1C1 = "=IF(RC[-5]>95,1,0)" 'y integre la formule si >95 alors 1
    Range("J2:J" & [D65000].End(xlUp).Row).FormulaR1C1 = "=IF(RC[-6]<105,1,0)" 'y integre la formule si <105 alors 1
    Range("K2:K" & [D65000].End(xlUp).Row).FormulaR1C1 = "=RC[-2]*RC[-1]" 'y integre la formule I2*J2
    Range("B1").Value = "Jour" 'y inscrit Jour
    Range("C1").Value = "Heure" 'y inscrit Heure
    Range("H1").Value = "Defaut" 'y inscrit Defaut
    Range("K1").Value = "Marche" 'y inscrit Marche
    Range("F:G,I:J").EntireColumn.Hidden = True 'les masquent
End Sub

22/10/2007, 11h53
tardieub

Merci Mapeh

C'est nickel, impressionant en fait c'est " & [D65000].End(xlUp).Row qui selectionne la ligne à chaque fois purée c'est savant ça! Et en plus j'ai 2 fois moins de lignes de programme.

Merci encore:D