VBA Excel
toniovargas
Messages postés
7
Date d'inscription
dimanche 7 novembre 2004
Statut
Membre
Dernière intervention
19 février 2011
-
5 avril 2005 à 05:17
tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 - 29 avril 2005 à 11:18
tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 - 29 avril 2005 à 11:18
4 réponses
tbbuim1
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
9
5 avril 2005 à 09:26
5 avril 2005 à 09:26
Tu peux changer la couleur du texte d'une celllule en faisant:
Range("I14").font.color = vbBlue
Et la couleur du fond en faisant:
Range("I14").Select
With Selection.Interior
.ColorIndex = 33 'bleu clair
.Pattern = xlSolid
End With
Mais le mieux quand on veut connaitre la syntaxe vba sous excel, c'est
de faire une macro enregistrée. On exécute à la main ce qu'on veut
faire et on regarde le code obtenu, il ne reste plus qu'à l 'adapter.
TBBUIM
Range("I14").font.color = vbBlue
Et la couleur du fond en faisant:
Range("I14").Select
With Selection.Interior
.ColorIndex = 33 'bleu clair
.Pattern = xlSolid
End With
Mais le mieux quand on veut connaitre la syntaxe vba sous excel, c'est
de faire une macro enregistrée. On exécute à la main ce qu'on veut
faire et on regarde le code obtenu, il ne reste plus qu'à l 'adapter.
TBBUIM
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
5 avril 2005 à 13:40
5 avril 2005 à 13:40
Private Sub CommandButton1_Click()
If Range("A1").Value = "EAU" Then
Label1.BackColor = vbBlue
End If
End Sub
jpleroisse
If Range("A1").Value = "EAU" Then
Label1.BackColor = vbBlue
End If
End Sub
jpleroisse
toniovargas
Messages postés
7
Date d'inscription
dimanche 7 novembre 2004
Statut
Membre
Dernière intervention
19 février 2011
7 avril 2005 à 02:03
7 avril 2005 à 02:03
en fait voici mon problème:
For BoucleCol = 1 To MaxColonnes
If Controls("LibChamp" & BoucleCol) = "bonjour" then
Controls("LibChamp" & BoucleCol).FontSize = 8
Controls("LibChamp" & BoucleCol).ForeColor = vbRed
Controls("LibChamp" & BoucleCol).Font.Bold = True
End If
If Controls("LibChamp" & BoucleCol) = "Merci" then
Controls("LibChamp" & BoucleCol).FontSize = 8
Controls("LibChamp" & BoucleCol).ForeColor = vbBlack
Controls("LibChamp" & BoucleCol).Font.Bold = True
End If
Next BoucleCol
Je voudrai que lorsque cette boucle tourne, si elle trouve le contenu bonjour
dans une cellule (la cellule peut contenir d'autres mots, par exemple "bonjour comment
tu vas") elle affiche une couleur à mes labels (que j'ai nommé LibChamp)
Merci si vous avez une réponse, je tourne en rond et c est le cas de le dire!!!
For BoucleCol = 1 To MaxColonnes
If Controls("LibChamp" & BoucleCol) = "bonjour" then
Controls("LibChamp" & BoucleCol).FontSize = 8
Controls("LibChamp" & BoucleCol).ForeColor = vbRed
Controls("LibChamp" & BoucleCol).Font.Bold = True
End If
If Controls("LibChamp" & BoucleCol) = "Merci" then
Controls("LibChamp" & BoucleCol).FontSize = 8
Controls("LibChamp" & BoucleCol).ForeColor = vbBlack
Controls("LibChamp" & BoucleCol).Font.Bold = True
End If
Next BoucleCol
Je voudrai que lorsque cette boucle tourne, si elle trouve le contenu bonjour
dans une cellule (la cellule peut contenir d'autres mots, par exemple "bonjour comment
tu vas") elle affiche une couleur à mes labels (que j'ai nommé LibChamp)
Merci si vous avez une réponse, je tourne en rond et c est le cas de le dire!!!
tbbuim1
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
9
29 avril 2005 à 11:18
29 avril 2005 à 11:18
T'as essayé en faisant
If Left(Controls("LibChamp" & BoucleCol),7) = "bonjour" then...
Comme ça, il ne vérifie que les 7 premiers caractères de ta cellule et regarde si ya Bonjour.
Comme il peut y avoir d'autres mots après, c pas génant.
TBBUIM
If Left(Controls("LibChamp" & BoucleCol),7) = "bonjour" then...
Comme ça, il ne vérifie que les 7 premiers caractères de ta cellule et regarde si ya Bonjour.
Comme il peut y avoir d'autres mots après, c pas génant.
TBBUIM