Discussion :

[adevy]

Bonjour à tous,

J'ai commencé a apprendre la programmation VBA mais je bute sur quelques questions.

J'ai un tableur avec une colonne A de ce type :

Texte
Texte
Texte
Cellule a remplir
Texte
Texte
Cellule a remplir

Voici un bout du code que j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If Left(Cells(ligne, 1), 9) = "Valeur" Then
 
Cells(Cellule à remplir) = "La valeur de la première cellule avec une police rouge ou verte au dessus"

Je ne sais pas quoi mettre pour avoir la valeur de la première cellule avec une police rouge ou verte au dessus de la cellule a remplir.

Accessoirement (mais je pense que je pourrais le déduire de votre réponse), comment faire la même chose mais avec le type de la police (La valeur de la première cellule avec une police en gras ou en italique).

Et encore accessoirement , comment faire la même chose avec La valeur de la première cellule contenant tel ou tel caractère ?

Je vous remercie pour votre aide et votre patience.

Adevy.

[parmi]

Bonjour,

Écris du texte en A1 et essaie ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
    MsgBox Range("A1").Interior.Color, , "Couleur remplissage"  
    MsgBox Range("A1").Font.Color, , "Couleur du texte"       
    MsgBox Range("A1").Font.Bold, , "Gras ?"                  
    MsgBox Range("A1").Font.Italic, , "Italique ?"              
    If InStr(1, Range("A1"), "C") > 0 Then
        MsgBox "A1 contient un 'C'"
    Else
        MsgBox "A1 ne contient pas de 'C'"
    End If

[adevy]

Merci beaucoup pour votre réponse, mais je ne la comprends pas.

Pourriez vous me la détailler un peu s'il vous plait (m'expliquer les étapes).

[parmi]

Prend le temps de regarder l'aide en ligne.
Place ton curseur sur un mot et tape F1

Interior.Color te retourne la valeur de la couleur du remplissage d'une cellule
Tu peux donc vérifier si la couleur retournée par Interior.Color correspond à celle que tu recherches.

C'est la même chose pour Font qui a différentes possibilités: Police, Gras, Italique, Souligné, ...

Instr() recherche un ou plusieurs caractères à l'intérieur d'un texte ou du texte d'une cellule.
S'il est trouvé, la fonction retourne la position du 1er caractère. Sinon elle retourne 0.
Sensible à la casse.


Il faut donc que tu saches ce que tu recherches au juste.
Si tu recherches du texte rouge, il faut que tu connaisses la valeur de ce rouge.