• Initiateur de la discussion Initiateur de la discussion Hawkeye56
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Hawkeye56

XLDnaute Junior
Bonjour à tous 🙂

Je voudrais compléter une macro en remettant en forme les sous totaux dans un tableau de statistiques mais je n'arrive pas au but recherché avec le code que j'ai écrit ci dessous.
Le but est: si la macro détecte la valeur "sous total PHA" alors inscrire 2 colonnes plus loin "Total Pharmacie".
Lorsque la valeur "sous total PHA" est détectée tout se passe bien, par contre lorsqu'elle est absente la macro inscrit de manière intempestive "Total Pharmacie" quelque part dans le tableau. j'ai une bonne dizaine de catégories de sous totaux possibles et ça me fait le coup avec toutes. Quelque chose m'échappe...j'ai besoin de vos lumières, merci par avance 🙂



Sub valeurtest()


Dim V As Range
Set V = Range("A4:A" & Range("A65536").End(xlUp).Row)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
For Each Cell In V
If Cell = ("Somme PHA") Then Cell.Offset(0, 2).Select


Next Cell
With Selection
.Value = ("TOTAL Pharmacie")
.Font.ColorIndex = 3
.Font.Bold = True
.HorizontalAlignment = xlCenter
End With
End sub
 
Re : Macro If Then

Bonsoir,

essaye ceci :
Code:
Sub valeurtest()
Dim V As Range
Set V = Range("A4:A" & Range("A65536").End(xlUp).Row)
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''
For Each Cell In V
If Cell = "Somme PHA" Then
With Cell.Offset(0, 2)
.Value = "TOTAL Pharmacie"
.Font.ColorIndex = 3
.Font.Bold = True
.HorizontalAlignment = xlCenter
End With
End If
Next
End Sub
Amicalement

Dan
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
451
Réponses
0
Affichages
367
Réponses
7
Affichages
786
Réponses
2
Affichages
1 K
Réponses
2
Affichages
719
Réponses
3
Affichages
889
  • Question Question
Microsoft 365 Recherche v + VBA
Réponses
3
Affichages
2 K
Réponses
5
Affichages
808
Retour