Sujet Précédent Sujet Suivant

Problème UserForm

Résolu/Fermé
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 11 avril 2016 à 10:10
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 - 12 avril 2016 à 16:21
Bonjour,


J'ai encore une demande.
Je fais par un UserForm les demandes suivante, quand je clique pour l'ouvrir il me met la ligne =LbLignAbs et le nom de l'onglet =LbPage1 et ensuite je demande 2 choses

et par la suite j'aimerai qu'il remplise les cellules depuis 1er jour(LbLignAbs,LbColAbsDeb) jusqu'au 2ème jour(LbLignAbs,LbColAbsFin)

je vous ai mon code, l'erreur est sur Worksheets(LbPage1.Caption).Range(LbLignAbs.Caption - LbColAbsDeb.Caption).Resize(, LbLignAbs.Caption - LbColAbsFin.Caption + 1).Interior.Color = RGB(255, 255, 0)


CODE
le 1er jour et un 2ème jour qui se trouve sur la même ligne
'1er jour pour la colonne
For i = 11 To 41
If TextBox1 = Cells(6, i).text Then
LbColAbsDeb = i
End If
Next

'2eme jour pour la colonne
For i = 11 To 41
If TextBox2 = Cells(6, i).text Then
LbColAbsFin = i
End If
Next


Worksheets(LbPage1.Caption).Range(LbLignAbs.Caption - LbColAbsDeb.Caption).Resize(, LbLignAbs.Caption - LbColAbsFin.Caption + 1).Interior.Color = RGB(255, 255, 0)

merci d'avance encore une fois



6 réponses

Réponse 1 / 6
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 avril 2016 à 14:43
Bonjour,

pour Range ex: Range("lettre ColonneNumerodeligne")-----> Range("A1")

ca Range(LbLignAbs.Caption - LbColAbsDeb.Caption)

a priori un nombre , mais pas de lettre !!!!!
0
Réponse 2 / 6
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 2
11 avril 2016 à 14:54
Désolé je ne vois pas comment faire ma ligne de code,
Je ne comprends pas
0
Réponse 3 / 6
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 2
11 avril 2016 à 15:07
Vous m'aviez donner les codes suivant pour quelques du même genre

Worksheets(LbPage.Caption).Range("K" & LbLigne.Caption).Resize(, LbColonne.Caption - 10).Interior.Color = RGB(0, 176, 80)

et

Worksheets(LbPage.Caption).Range(LbAdd.Caption).Resize(, LbDernJour.Caption - LbColonne.Caption + 1).Interior.Color = RGB(255, 255, 0)
mais je n'arrive pas à prendre exemple sur vos code
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
11 avril 2016 à 15:15
Re,

Pour definir l'objet Range dans votre cas, il faut une lettre pour la colonne et un nombre pour la ligne. Dans votre ligne de code 

Worksheets(LbPage1.Caption).Range(LbLignAbs.Caption - LbColAbsDeb.Caption).Resize(, LbLignAbs.Caption - LbColAbsFin.Caption + 1).Interior.Color = RGB(255, 255, 0)


il n'y a que la ligne

et celle la 

Worksheets(LbPage.Caption).Range(LbAdd.Caption).Resize(, LbDernJour.Caption - LbColonne.Caption + 1).Interior.Color = RGB(255, 255, 0)


, sais pas ce que contient LbAdd.Caption
0
Réponse 4 / 6
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 2
11 avril 2016 à 15:19
La cellule donc par exemple B8
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 2
11 avril 2016 à 15:40
c'est la cellule qui m'ouvre le UserForm
0
Réponse 6 / 6
viret1290 Messages postés 137 Date d'inscription samedi 17 août 2013 Statut Membre Dernière intervention 12 octobre 2022 2
12 avril 2016 à 16:21
Bonjour,

On ma donné la solution la voici:

Worksheets(LbPage1.Caption).Range(Worksheets(LbPage1.Caption).Cells(Val(LbLignAbs.Caption), Val(LbColAbsDeb.Caption)), Worksheets(LbPage1.Caption).Cells(Val(LbLignAbs.Caption), Val(LbColAbsFin.Caption))).Interior.Color = RGB(51, 102, 255)
0

Discussions similaires

Userform, bouton, excel
Geronimo -
jordane45 -

5 réponses
Liste déroulant dans Userform Via liste Excel
Cath444 -
Ricky38 -

6 réponses
vba sur excel- récupérer valeur d'un userform
koyx -
koyx -

12 réponses
EXCEL MAC Création d'un USERFORM
PimG -
PimG -

4 réponses
Comment afficher le contenue d'une feuille excel userform Vba
roudiroud -
roudiroud -

6 réponses