Boucle et recherche VBA Excel
Re,
Oui effectivement ça ne marche pas...
Mais bon y'a souvent moyen de contourner le problème. Donc une petite fonction pour mettre en surbrillance
Function testCouleur(Couleur)
Dim Rouge As Integer, Vert As Integer, Bleu As Integer
Dim CouleurMax As Integer
Rouge = Int(Couleur Mod 256)
Vert = Int((Couleur Mod 65536) / 256)
Bleu = Int(Couleur / 65536)
CouleurMax = Application.Max(Rouge, Vert, Bleu)
testCouleur = IIf(CouleurMax < 150, vbWhite, vbBlack)
End FunctionTu peux ajuster le basculement ic réglé sur 150.
Concernant le Userform il te faut trouver une police qui contienne tous les caractères dont tu as besoin, bien paramétrer la police, et aussi penser à bien paramétrer la cellule qui reçois les données. Au besoin utiliser la propriété .Characters pour ne changer la police que sur un ou plusieurs caractères.
Bonsoir,
Merci
Pour la formule je ne sais pas comment l'utiliser
pour la surbrillance comment la mettre en automatique?
J'aimerais sélectionner la colonne A et cliquer sur la macro =>toutes les cellules en foncée le texte apparait en surbrillance et inversement
Mais par contre UserForm m'intéresse beaucoup
mais comment l'adapter à la place de ce code
Symbole = InputBox("Selectionnez le Symbole", "Symbole")
If Symbole = "" Then Exit Subet comment lui faire insérer les caractères spéciaux (il me met un '?' quand j'insère π, ∆ etc ?
je suis débutant, donc parfois je suis un peu largué
CDLT