Afficher le % d'une cellule

Résolu

Alex -
jordane45 Messages postés 40050 Statut Modérateur - 10 août 2021 à 15:13

Bonjour, j'aimerai que mon code VBA détecte les % dans les cellules excel. J'ai fais ce petit code pour un test mais il ne marche que si la cellule = "%". Dans le cas ou elle contient d'autres caractères ex : "50%", le code ne fonctionne pas. Pouvez-vous m'aidez la dessus ? Merci d'avance !

Sub test()

If Feuil1.Cells(4, 3) = "%" Then
MsgBox ("% détecté")
Else: MsgBox ("failed")
End If

End Sub

Afficher la suite

A voir également:

Afficher le % d'une cellule
Excel cellule couleur si condition texte - Guide
Proteger cellule excel - Guide
Aller à la ligne dans une cellule excel - Guide
Afficher taille dossier windows - Guide
Afficher cellules masquées excel - Forum Excel

2 réponses

Réponse 1 / 2

jordane45 Messages postés 40050 Statut Modérateur 4 754

https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/instr-function

Réponse 2 / 2

Alex

Bonsoir, merci ! J'ai modifié le code, cela marche si ma cellule est une chaîne de caractère ("665%768" par ex), mais pas si elle est considéré par excel comme un pourcentage ("50%" par ex).

Sub test()
If InStr(1, Feuil1.Cells(3, 3), "%") > 0 Then
MsgBox ("youpi")
End If
End Sub

jordane45 Messages postés 40050 Statut Modérateur 4 754

Tu es sûr que le symbole % est écrit dans la cellule ?
ça ne serait pas simplement le "format" de cellule qui serait en pourcentage ? Si tel est le cas .. ce n'est que de l'affichage et la valeur de la cellule ne contient pas le signe %
Il faut que tu regardes comment connaitre le "format" d'une cellule ... et si elle est au format % ..alors afficher ton msgbox.

Alex > jordane45 Messages postés 40050 Statut Modérateur

En fait si j'écris 50% dans une cellule, Excel la considère comme un un pourcentage automatiquement (le format de la cellule est bien un pourcentage). Est-il possible de faire ressortir les % dans ces cellules de ce type même si ce n'est pas des format "texte"/chaines de caractère? Merci d'avance !

jordane45 Messages postés 40050 Statut Modérateur 4 754 > Alex

Comme je te l'ai dit .. il faut regarder le format de la cellule

Sub test()
    Dim NumberFormat
    NumberFormat = Range("A1").NumberFormat
    Debug.Print NumberFormat
    If NumberFormat = "0%" Then
        MsgBox "Pourcentage"
    End If


End Sub

Alex > jordane45 Messages postés 40050 Statut Modérateur

Bonjour Jordan,

Je ne connaissais pas du tout NumberFormat ^^ j'aurai été incapable de coder ça moi même...
Merci beaucoup, tu me sauve !

jordane45 Messages postés 40050 Statut Modérateur 4 754 > Alex

En faisant une simple recherche sur le net avec les mots clé : VBA + Format cellule .. tu aurais trouvé le "numberFormat" .. c'est d'ailleurs comme ça que j'ai procédé.

Discussions similaires

additionner nombres dans cellules avec texte

Durée d'une diapositive animée

excel fractionner une cellule horizontalement

Excel formule : savoir si une cellule contient partie texte

Excel : colorer une cellule sous condition d'une autre ?

Votre réponse

Discussions similaires