Discussion :

[jorisphi]

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

[fgiambelluco]

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.

[jorisphi]

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
Jorisphi

[fgiambelluco]

Re

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

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

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é

[laetitia]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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???

[jorisphi]

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

[laetitia]

re, pour les couleurs en supprimant les mfc

je l'ecrirais comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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??