Le code VBA decale le resultat attendu

Créer une discussion
Répondre

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 !

S'inscrire
P

PHILIP

XLDnaute Occasionnel
Bonjour à tous
Je suis débutant en vba je dois écrire une macro destinée a analyser automatiquement un classeur. Le début du code fonctionne mais quand j'arrive à la partie mise en forme conditionnelle la y'a un hic la formule
si(gauche(l6;1)=""j"";NB.SI(j48hr;H6);"""")" devient quand je regarde dans mise en forme conditionnelle du classeur
si(gauche(s11;1)=""j"";NB.SI(j48hr;011);"""")" La couleur la police tout y esr mais ce decalage .....
Bruno 45 m' a aider en me faisant mettre un dollar devant L6 et h6 dans la formule et maintenant cela decale la formule à L11 et H11 ( c'est important)
je stagne !!!

Sheets("mon003.09091015_06_02").Activate

With Range("h6")
FormatConditions.Add Type:=xlExpression, Formula1:="=SI(GAUCHE(L6;1)=""j"";NB.SI(j48hr;H6); """")"
With .FormatConditions(1)

.Font.Bold = True
.Font.Italic = False
.Font.Color = -1003520

End With
End With

End Sub



pouvez vous aussi m'indiquer comment appliquer cette mise en forme conditionnelle à la plage H6 H10000 merci encore pour votre aide

--------------------------------------------------------------------------------
 
Trier par date Trier par votes
Re : Le code VBA decale le resultat attendu

bonjour PHILIP

En attendant mieux ,une solution assez longue a l'execution :

Code: 
Sub test()
Sheets("mon003.09091015_06_02").Activate
Application.ScreenUpdating = False
For Each cel In Range("H6:H10000")
cel.Select
With cel
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=SI(GAUCHE(L6;1)=""j"";NB.SI(j48hr;H6); """")"
With .FormatConditions(1)
.Font.Bold = True
.Font.Italic = False
.Font.Color = -1003520
End With
End With
Next cel
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Le code VBA decale le resultat attendu

Merci Pierre-Jean pour ton aide

Comme je l'ai expliqué je suis débutant en vba pourriez vous m'expliquer votre code par des commentaires, A noter qu'il est effectivement long à s'executer je suis obligé de l'arrëteret là il me mets en code d'erreur comme la methode de couleur font à echouée ou la methode italic à echouée ou la methode cell select à echouée
dur dur
 
Vote positif 0 Vote négatif
Re : Le code VBA decale le resultat attendu

Maitre Pierre, bonjour ... bises à Dany 😉

Philip, je ne comprends pas pourquoi tu as fait un autre poste pour le même problème que https://www.excel-downloads.com/threads/vba-ma-formule-se-decalle.127411/

De plus je ne comprends pas que tu es le problème indiqué puisque le code place le format conditionnel en H6
Code: 
With Range("h6")
😕

Alors tu ne pourrais pas nous joindre ton fichier et expliquer un peu plus en détail ce qui ce passe !?

A+
 
Vote positif 0 Vote négatif
Re : Le code VBA decale le resultat attendu

Salut,

on peut définir le contenu et le style directement par VBA ainsi (sans formule ni MFC) :
Code: 
Sub test()
  Dim Cel As Range
  Sheets("mon003.09091015_06_02").Activate
  Application.ScreenUpdating = False
  For Each Cel In Range("H6:H10000")
    If Left(Cel.Offset(, 4), 1) = "j" Then
      Cel = Application.WorksheetFunction.CountIf(Range("j48hr"), Cel.Offset(, -1))
      Cel.Font.Bold = False
      Cel.Font.Color = -1003520
    Else
      Cel = ""
    End If
  Next Cel
  Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re : Le code VBA decale le resultat attendu

Re

Version plus rapide (incorporant les $ de BRUNO)

Code: 
Sub test()
Sheets("Feuil1").Activate
With Range("H6")
Range("H6").Select
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:="=SI(GAUCHE($L$6;1)=""j"";NB.SI(j48hr;$H$6); """")"
With .FormatConditions(1)
.Font.Bold = True
.Font.Italic = False
.Font.Color = -1003520
End With
End With
Range("H6").Copy
Range("H6:H10000").PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End Sub
 
Vote positif 0 Vote négatif
Re : Le code VBA decale le resultat attendu

Bonjour à Tous
Je suis débutant en vba je dois écrire une macro destinée a analyser automatiquement un classeur. Le début du code fonctionne mais quand j'arrive à la partie mise en forme conditionnelle la y'a un hic la formule
si(gauche(l6;1)=""j"";NB.SI(j48hr;H6);"""")" devient quand je regarde dans mise en forme conditionnelle du classeur
si(gauche(s11;1)=""j"";NB.SI(j48hr;011);"""")" La couleur la police tout y esr mais ce decalage .....
Me revoila avec mon probleme de code qu'il me faut absolument resoudre avant de continuer à travailler ce fichier
Voici le code que j'emploi à tester sur le fichier
je n'y ai mis que du joy01 et 02 j'èspere que vous arriverez à m'aider (merci à Pierrejean et à bruno M45 ) la plage j48hr devant se trouver dans le feuillé carte des délais encore une fois merci pour votre aide
Sub amelioration()
'reprise de mise_en_page
Range("A:A,C:C,D😀,E:E,M:M,S:AK").Delete Shift:=xlToLeft
Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("E1").FormulaR1C1 = "=INT(RC[1]/1000)"
Range("E1").AutoFill Destination:=Range("E1:E10000"), Type:=xlFillDefault
Columns("A:C").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Rows("1:5").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

Dim ListSh() As Variant
'On inscrit les noms dans un tableau
ListSh = Array("dhl24", "dhl48", "joy24", "joy48", "joy72", "mon24", "mon48", "mon72", "mon96", "tnt", "tof", _
"Autriche", "Allemagne", "Italie", "Suisse", "CZ", "DK", "PL", "ferié", "carte des délais")
'on boucle du plus petit indice au plus grand indice du tableau
For i = LBound(ListSh) To UBound(ListSh)
'on cré la feuille après la dernière feuille existante
Sheets.Add after:=Sheets(Sheets.Count)
'on nomme la nouvelle feuille
ActiveSheet.Name = ListSh(i)
Next

[B3:B13] = Application.Transpose(Array(1, 2, 3, 8, 26, 52, 58, 59, 71, 78, 79))
ActiveWorkbook.Names.Add Name:="j48hr", RefersTo:=[B3:B13]
End Sub

Sheets("feuil1").Activate
With Range("h6")
FormatConditions.Add Type:=xlExpression, Formula1:="=SI(GAUCHE(L6;1)=""j"";NB.SI(j48hr;H6); """")"
With .FormatConditions(1)

.Font.Bold = True
.Font.Italic = False
.Font.Color = -1003520

End With
End With

End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Le code VBA decale le resultat attendu

Re

teste ceci

Code: 
Sub amelioration()
'reprise de mise_en_page
Range("A:A,C:C,D:D,E:E,M:M,S:AK").Delete Shift:=xlToLeft
Columns("E:E").Insert Shift:=xlToRight
Range("E1").FormulaR1C1 = "=INT(RC[1]/1000)"
Range("E1").AutoFill Destination:=Range("E1:E10000"), Type:=xlFillDefault
Columns("A:C").Insert Shift:=xlToRight
Rows("1:5").Insert Shift:=xlDown
Dim ListSh() As Variant
'On inscrit les noms dans un tableau
ListSh = Array("dhl24", "dhl48", "joy24", "joy48", "joy72", "mon24", "mon48", "mon72", "mon96", "tnt", "tof", _
"Autriche", "Allemagne", "Italie", "Suisse", "CZ", "DK", "PL", "ferié", "carte des délais")
'on boucle du plus petit indice au plus grand indice du tableau
For i = LBound(ListSh) To UBound(ListSh)
'on cré la feuille après la dernière feuille existante
Sheets.Add after:=Sheets(Sheets.Count)
'on nomme la nouvelle feuille
ActiveSheet.Name = ListSh(i)
Next
[B3:B13] = Application.Transpose(Array(1, 2, 3, 8, 26, 52, 58, 59, 71, 78, 79))
ActiveWorkbook.Names.Add Name:="j48hr", RefersTo:=[B3:B13]
'End Sub
Sheets("feuil1").Activate
With Range("h6")
Range("h6").Select
.FormatConditions.Add Type:=xlExpression, Formula1:="=SI(GAUCHE(L6;1)=""j"";NB.SI(j48hr;H6); """")"
With .FormatConditions(1)
.Font.Bold = True
.Font.Italic = False
.Font.Color = -1003520
End With
End With
Range("H6").Copy
Range("H6:H10000").PasteSpecial Paste:=xlFormats
Application.CutCopyMode = False
End Sub

Comme je ne sais pas ce que tu souhaites tu pourras tester avec

Code: 
.FormatConditions.Add Type:=xlExpression, Formula1:="=SI(GAUCHE([COLOR=blue]$[/COLOR]L[COLOR=blue]$[/COLOR]6;1)=""j"";NB.SI(j48hr;[COLOR=blue]$[/COLOR]H[COLOR=blue]$[/COLOR]6); """")"

NB : j'ai supprimé
, CopyOrigin:=xlFormatFromLeftOrAbove
qui ne passe pas sur ma version
 
Vote positif 0 Vote négatif
Re : Le code VBA decale le resultat attendu

ça marche.....!
Je n'ai pas encore comparé avec le code que j'avais mis dans le message quelle était donc l'erreur ?
Anoter que j'en ai encore huit autres conditions à mettre , ensuite il y 'aura un transfert des données vers leurs feuilles de destination

encore une fois merci PierreJean
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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

D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
1 K
crocrocro
C
S
  • Question Question
XL 2016 Excel - Conditionnal Formating VBA
Réponses
0
Affichages
793
Solo_Wing75
S
B
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle d'une ligne d'un tableau VBA
Réponses
2
Affichages
2 K
bluesky12000
B
GADENSEB
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
GADENSEB
N
  • Question Question
XL 2016 mise en forme conditionnelle par vba
Réponses
2
Affichages
2 K
neim
N
bambi
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
bambi
thunder23
  • Question Question
XL 2010 Alléger et rendre plus rapide un code VBA
Réponses
10
Affichages
2 K
thunder23
thunder23
T
  • Question Question
XL 2010 VBA recherche find nom bénévoles
Réponses
9
Affichages
1 K
TotallyWorkaholic
T
L
  • Question Question
XL 2010 erreur sur le range
Réponses
3
Affichages
804
lolo06340
L
Jauster
  • Question Question
XL 2016 transfert de donnée avec id unique
Réponses
3
Affichages
739
pierrejean
pierrejean
M
  • Question Question
aide pour modifier code vba
Réponses
3
Affichages
2 K
Staple1600
Staple1600
G
  • Question Question
Problème de VBA
Réponses
2
Affichages
2 K
Gwendoline
G
B
  • Question Question
Mise en forme conditionnelle sur ligne code VBA
Réponses
4
Affichages
5 K
barth66
B
C
  • Question Question
XL 2010 MFC via VBA - Erreur d'exécution '5' parfois
Réponses
6
Affichages
2 K
Compte Supprimé 979
C
S
  • Question Question
XL 2013 VBA et plages nommées
2
Réponses
22
Affichages
3 K
sr94
S
F
  • Question Question
XL 2013 Même nombre de chiffre après la virgule qu'une autre cellule
Réponses
5
Affichages
3 K
flstyle
F
S
  • Question Question
Mise en forme conditionnelle en VBA
Réponses
4
Affichages
2 K
sr94
S
A
  • Question Question
[RESOLU]VBA MFC boucle for
Réponses
4
Affichages
948
alexvol
A
W
  • Question Question
Faire tourner une macro en automatique sans ouvrir le fichier excel
2
Réponses
18
Affichages
8 K
Winniechips
W
T
  • Question Question
A votre avis quel est le mieux: MFC en VBA ou plutôt boucle avec des IF ?
Réponses
3
Affichages
859
Staple1600
Staple1600
Retour