Fonction excel dans VBA + variable
Résolu
I folima Elda
Messages postés
24
Date d'inscription
Statut
Membre
Dernière intervention
-
I folima Elda -
I folima Elda -
Bonjour,
Je créée depuis deux jours, un programme permettant de faire des test de Fisher pour des analyses chimiques. J'ai donc créer un programme qui permet de mettre autant de ligne que l'on veut suivant les paramètre rentrée. Enfin bref.
Donc les paramètres rentrés, il me fait les ligne de valeurs correspondantes mais je souhaiterais encadrer comme pour un tableau. J'utilise donc un enregistrement automatique de programme pour vba sous excel et j'obtient ceci:
Range("C7:F18").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Cependant vous remarquerez qu'il s'agit là pour un nombre définis de cellule hors moi c'est l'utilisateur qui en définis le nombre. DOnc peut-on modifier: Range("C7:F18").Select pour qu'il prennent en compte ma variable de ligne?
Je créée depuis deux jours, un programme permettant de faire des test de Fisher pour des analyses chimiques. J'ai donc créer un programme qui permet de mettre autant de ligne que l'on veut suivant les paramètre rentrée. Enfin bref.
Donc les paramètres rentrés, il me fait les ligne de valeurs correspondantes mais je souhaiterais encadrer comme pour un tableau. J'utilise donc un enregistrement automatique de programme pour vba sous excel et j'obtient ceci:
Range("C7:F18").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Cependant vous remarquerez qu'il s'agit là pour un nombre définis de cellule hors moi c'est l'utilisateur qui en définis le nombre. DOnc peut-on modifier: Range("C7:F18").Select pour qu'il prennent en compte ma variable de ligne?
A voir également:
- Fonction excel dans VBA + variable
- Fonction si et excel - Guide
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Fonction moyenne excel - Guide
- Déplacer colonne excel - Guide
3 réponses
bonjour
voici un petit bout de code qui réalise la sélection ("C7:F18") pour t'expliquer l'utilisation des variables :
à plus
voici un petit bout de code qui réalise la sélection ("C7:F18") pour t'expliquer l'utilisation des variables :
Sub test3()
LDeb = 7 'pour C7
CDeb = 3
LFin = 18 ' pour F18
CFin = 6
Range(Cells(LDeb, CDeb), Cells(LFin, CFin)).Select
End Sub
à plus
