[excel VBA] selection d'une ligne+variable
Mortbise
-
Lucas.P -
Lucas.P -
Bonjour,
j'essaie de permettre au utilisateur d'un fichier exel d'avoir la possibilité de changer la couleur de certaine ligne,
Voici mon code:
Private Sub grave_Click()
' je déclare la variable et lui donne sa valeur
Dim N As Byte
N = saisieligne.number
' je selectionne la ligne et je lui assigne une couleur de fond
Worksheets("new").Range("A7:H7").Interior.Color = RGB(255, 0, 0)
Worksheets("data").Range("A7:H7").Interior.Color = RGB(255, 0, 0)
' je ferme l'userform
colorchange.Hide
End Sub
en faite j'aimerais changer le 7 par ma variable mais je n'y arrive pas
saisieligne est le nom de l'userform dans lequel les utilisateurs rentre le n° de la ligne a modifié
Merci d'avance pour vos reponse
j'essaie de permettre au utilisateur d'un fichier exel d'avoir la possibilité de changer la couleur de certaine ligne,
Voici mon code:
Private Sub grave_Click()
' je déclare la variable et lui donne sa valeur
Dim N As Byte
N = saisieligne.number
' je selectionne la ligne et je lui assigne une couleur de fond
Worksheets("new").Range("A7:H7").Interior.Color = RGB(255, 0, 0)
Worksheets("data").Range("A7:H7").Interior.Color = RGB(255, 0, 0)
' je ferme l'userform
colorchange.Hide
End Sub
en faite j'aimerais changer le 7 par ma variable mais je n'y arrive pas
saisieligne est le nom de l'userform dans lequel les utilisateurs rentre le n° de la ligne a modifié
Merci d'avance pour vos reponse
A voir également:
- [excel VBA] selection d'une ligne+variable
- Aller à la ligne excel - Guide
- Liste déroulante excel - Guide
- Déplacer une colonne excel - Guide
- Partager photos en ligne - Guide
- Word et excel gratuit - Guide
1 réponse
Salut,
je sais pas si tu as encore ce problème mais voici la solution :
Pour introduire une variable dans un range il faut utiliser habilement les guillemets et les éperluettes (aussi appelés "et commercial") & :
Worksheets("new").Range("A" & N & ":" & "H" & N).Interior.Color = RGB(255, 0, 0)
Worksheets("data").Range("A" & N & ":" & "H" & N).Interior.Color = RGB(255, 0, 0)
Lucas
je sais pas si tu as encore ce problème mais voici la solution :
Pour introduire une variable dans un range il faut utiliser habilement les guillemets et les éperluettes (aussi appelés "et commercial") & :
Worksheets("new").Range("A" & N & ":" & "H" & N).Interior.Color = RGB(255, 0, 0)
Worksheets("data").Range("A" & N & ":" & "H" & N).Interior.Color = RGB(255, 0, 0)
Lucas