MFC - VBA -Macro ne fonctionne pas

Bonjour à tous

J'ai une programmation VBA qui copie les cellules de C197 en C4 (Par exemple)
Cette macro fonctionne bien (en cliquant sur C3) mais pas la mise en couleurs, ni les majuscules

Quelqu'un pourrait-il m'aider à comprendre et solutionner mon problème ?

Un grand merci pour votre aide

Jorisphi
PS : je suis débutant en VBA

Bonjour
As-tu vérifié qu'il n'y pas de Mise en Forme Conditionnelle sur ces cellules.en effet la mise en forme conditionnelle est prioritaire sur les formats de cellule.
;)

Bonjour fgiambelluco

Merci pour votre réponse rapide
Oui, j'ai des MFC .......
J'ai supprimé les MFC, et cela ne fonctionne pas non plus

Y a-il une façon "détournée" de passer outre de ces MFC ?....

Par contre, la mise en majuscule ne fonctionne pas. Quid ?...

Merci d'avance pour votre aide précieuse:zoubi:
Jorisphi

Re

Citation:

---

Y a-il une façon "détournée" de passer outre de ces MFC ?....

---

*
Je crois pas, à part la supprimer par le code. :roll:

Citation:

---

Par contre, la mise en majuscule ne fonctionne pas. Quid ?...

---

Là je ne sais pas, je n'ai pas regardé le code que tu as envoyé
;)

bonjour le fil le forum.deja pour les majuscules je l'ecrirais comme cela

Code:

---

1 2 3 4

For k = 4 To 52 Step 2 Cells(k, col) = UCase(Cells(Lig, col)) Lig = Lig + 1 Next

---

pour les couleurs il faut voir???

Bonjour
En supprimant les MFC, cela ne fonctionne toujours pas......
Cel m'inquiète
Merci de votre aide
Jorisphi

re, pour les couleurs en supprimant les mfc

je l'ecrirais comme cela

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Intersect(Range(Target.Address), Range("C3:P3")) Is Nothing Then Exit Sub SendKeys "{RIGHT}" If vbYes = MsgBox("Cette Commande va écraser les montants déjà encodés" & vbCr & vbCr & vbCr & _ " Voulez-vous continuer ?", vbExclamation + vbYesNo, "Copie") Then col = ActiveCell.Column lig = 197 Application.ScreenUpdating = False For k = 4 To 52 Step 2 Cells(k, col) = UCase(Cells(lig, col)) If Cells(k, col).Value = "P" Then Cells(k, col).Font.ColorIndex = 10 If Cells(k, col).Value = "RET" Then Cells(k, col).Font.ColorIndex = 32 'ect... lig = lig + 1 Next End If End Sub

---

ps attention a l'utilisation des SendKeys pas souvent fiables j'ai pas regardais plus haut il y a forcement plus simple!!!

effectivement SendKeys dans ton CODE sert a rien !!! tu peus le supprimer il est sense faire quoi??

Chère Laetitia
Je ne sais quoi dire !.......que MAGNIFIQUE !....
Cela fonctionne à merveille !.......:lol:
Vous êtes: bien une experte !.....:ccool:

Un TOUT TOUT GRAND MERCI pour votre solution !.......

De Plus , j'ai essayé sans supprimer les MFC et cela fonctionne aussi

Merci à vous et à tous
A bientôt
Jorisphi

Bonjour Laetitia
Je reviens vers vous car vous me signaler que "l'utilisation des SendKeys ne sont pas souvent fiables "
En Effet , j'ai maintenant le problème. Il me refuse "SendKeys "{RIGHT}" dans ma macro
Ce "SendKeys" sert à positionner le curseur à droite sur mon MsgBox

Avez-vous une autre solution pour éviter ce refus?.....
Grand merci pour votre aide
Cordialement
JorisPhi

Bonjour à tous
Je passais par là!!! :P

Citation:

---

Ce "SendKeys" sert à positionner le curseur à droite sur mon MsgBox

---

Si c'est pour positionner le curseur sur le NON, il y a plus simple.
Dans l'instruction MsgBox :

Code:

---

vbExclamation+ vbYesNo + vbDefaultButton2

---

;)

Bien le bonjour Fgiambelluco

Grand merci pour votre ...."Passage". Il tombe à Pic....
Merci aussi pour votre réponse rapide

Très cordialement :ccool:
Jorisphi