[VBA] Format conditionnelle spécifique

Format conditionnelle spécifique [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 10-01-2014 à 15:20:04    

Bonjour à tous ( Et bonne année :D )  
 
J'ai une petite question, je vais essayé d’être clair.
 
Je sais faire un format conditionnelle simple par exemple : Si j’écris "23" dans une cellule alors remplissage de couleur rouge...  .
La il prends en compte le nombre "23".
 
J'aimerais maintenant qu'il prenne juste en compte non pas tout le nombre "23", mais juste le chiffre "3".
 
Par exemple dans la colonne A, j’écris 13 la cellule ce remplis en rouge, et si j’écris 23 un peu plus bas il me le remplis aussi en rouge car 13 et 23 , ainsi de suite avec tout les nombres.
 
J’espère que je suis assez clair...  :ange:  
 
Merci :)  
Bonne après-midi a tous :)  
 


---------------
Cordialement
Reply

Marsh Posté le 10-01-2014 à 15:20:04   

Reply

Marsh Posté le 10-01-2014 à 15:45:58    

 
            Bonjour, bonjour,
 
            les formules conditionnelles utilisent les fonctions des feuilles de calcul.
 
            Voir donc du côté des fonctions texte comme par exemple  CHERCHE  &  TROUVE  …
 

Reply

Marsh Posté le 10-01-2014 à 16:07:44    

Merci de ta réponse rapide.
 
Mais comment lui dire de regarder que le "3" dans "23". ?
 
C'est çà qui me pose problème.. ;/

Reply

Marsh Posté le 10-01-2014 à 16:18:15    

 
           Rien qu'en lisant l'aide de ces fonctions ‼
 
           A quoi peut bien servir leur paramètre texte_cherché ?!
 
           __________________________________________________
           Lire, c'est s'investir !
 

Reply

Marsh Posté le 10-01-2014 à 16:38:17    

Oui pour ca je suis ok :p
 
Mais je pense que je m'explique mal :(
Je veux pas qu'il regarde tout le nombre mais juste l'unité qui et 3 "23"
 
Je pensais faire " *3 " mais ça ne marche pas

Reply

Marsh Posté le 10-01-2014 à 16:41:19    

 
           Dans les fonctions texte par hasard, n'y aurait-il pas une fonction  DROITE  ?
 

Reply

Marsh Posté le 10-01-2014 à 17:16:17    

Décidément je comprends vraiment rien au fonction...
 
Il existe pas un code VBA pour faire cela ?


Message édité par micka671 le 10-01-2014 à 17:33:56
Reply

Marsh Posté le 10-01-2014 à 20:09:03    

 
           Déjà commencer par le faire dans la formule d'une cellule :  cela donne quoi ?


Message édité par Marc L le 10-01-2014 à 20:09:59
Reply

Marsh Posté le 10-01-2014 à 20:13:54    

Justement c'est la que je n'y arrive pas...

Reply

Marsh Posté le 10-01-2014 à 20:18:29    

 
           Si tu n'arrives pas à effectuer une formule B-A-BA de débutant, ne même pas songer au VBA ‼
 
           Donc en lisant l'aide de la fonction DROITE, qu'as-tu mis dans la formule d'une cellule ?
 

Reply

Marsh Posté le 10-01-2014 à 20:18:29   

Reply

Marsh Posté le 10-01-2014 à 20:23:33    

Droite(A2,2)

Reply

Marsh Posté le 10-01-2014 à 22:04:58    

 
           Pourquoi extraire deux chiffres à partir de la droite alors qu'un seul t'intéresse ?
 

Reply

Marsh Posté le 10-01-2014 à 22:10:27    


Droite(A2,1)
 
Le code VBA c'est quoi ? ^^

Reply

Marsh Posté le 10-01-2014 à 22:26:02    

 
           Ne même pas penser au VBA tant que pas réalisé via formule …
 
           Et de toute manière y en a pas besoin pour une mise en forme conditionnelle, sujet initial !
 
           Donc en extrayant un seul caractère, quel résultat est affiché dans la cellule ?
 
 
           

Reply

Marsh Posté le 11-01-2014 à 02:16:25    

=DROITE(a1;1)="3"   Y a Vrai.
Je veux pas faire de format conditionnelle, j'aimerais une macro :)

Reply

Marsh Posté le 11-01-2014 à 03:13:31    

 
          Avec "VRAI", c'est tout bon pour une mise en forme conditionnelle !
 
          Pour un code, c'est livré sur un plateau via l'Enregistreur de macros !
 
          Voir aussi du côté de la fonction  Right  …
 

Reply

Marsh Posté le 11-01-2014 à 17:21:54    

C'est bon quelqu'un d'aimable ma données le code :
 

Code :
  1. Columns("A:A" ).Select
  2.     Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
  3.         "=DROITE(JOUR(A1);1)=""7"""
  4.     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
  5.     With Selection.FormatConditions(1).Interior
  6.         .PatternColorIndex = xlAutomatic
  7.         .Color = 11359767
  8.         .TintAndShade = 0
  9.     End With
  10.     Selection.FormatConditions(1).StopIfTrue = False


 
Juste a changer le chiffre "7" pour chacun de mes chiffres, et le code couleur.
 
Merci quand même :)  
 
PS : Marc L ici on et pas a l’école, en tout qu'a pas moi :)  
 
Bonne fin de journée!

Reply

Marsh Posté le 11-01-2014 à 18:34:39    

 
           Au moins tu as vu que tu disposes de tout sous la main pour t'en sortir
           et avec l'Enregistreur de macros tu aurais pu aussi obtenir le code !
 
           Lorsqu'il s'agit du B-A-BA d'Excel de niveau débutant, je ne donne pas de solution toute faite
           surtout lorsque la présentation n'est pas assez claire …


Message édité par Marc L le 11-01-2014 à 23:56:05
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed