Fonction excel dans VBA + variable Résolu

Question

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?

LePierre · Answer

bonjour

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

eriiic · Answer

Bonjour,

ou bien tu enleves ton Range("C7:F18").Select 
Toutes tes autres lignes s'appliquerons à la sélection en cours faite par l'utilisateur avant de lancer la macro.
eric

I folima Elda · Answer

eriiic=> Tout est vraiment automatique. L'utilisateur n'a en faite que à cliquer sur le bouton de lancement du programme.

LePierre => Ton truc marche super nickel chrome. Je t'adore ;) Avec ça ça fera des truc superbement propre. Merci beaucoup

Fonction excel dans VBA + variable

3 réponses

Discussions similaires

Newsletters