erreur dans une macro Résolu

Question

Bonjour,
J'ai une macro qui m'écrit un résultat dans deux cellules adjacentes.
Cette écriture est de couleur mais la macro respecte la couleur dans la première cellule mais pas dans la deuxième. Pourtant je ne vois pas d'erreur voici le macro
With Selection.Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 41
    End With
    ActiveCell.FormulaR1C1 = "CP"
    With Selection.Font
        .Name = "Arial"
        .FontStyle = "Gras"
        .Size = 12
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 41
    End With
    ActiveCell.Offset(0, 1) = "CP"
'
End Sub

ccm81 · Answer

Bonjour

Le premier
With Selection.Font 
se réfère à la cellule sélectionnée
Le deuxième aussi, et comme tu n'as pas changé la sélection....!!

Bonne suite

phirene26 · Answer

je ne vois pas ou est l'erreur désolé

foo · Answer

bonjour

pour changer une couleur de text sur sur une plage

Range("F5").Font.ColorIndex = 41
ou
Cells(5, 6).Font.ColorIndex = 41

en gros une ligne sufi

A+
Maurice

phirene26 · Answer

je viens d'essayer ça marche pas mieux je suis novice en macro

foo · Answer

Re

Depose le fichier xls (réduit si nécessaire et anonyme)sur http://www.cjoint.com/ et coller ici le lien fourni.

ca serat plus simple pour voir ou ca Bug

A+

Mauirce

ccm81 · Answer

Au début de ton code (de ta macro?)
With Selection.Font 
fait référence à une cellule ou a une plage sélectionnée soit dans la feuille soit par une instruction précédente du type range(cellule).select
La suite du code s'applique à cette sélection jusqu'au premier end with

Question. Cette sélection concerne t' elle une seule cellule ou une plage?

phirene26 · Answer

voilà
	https://www.cjoint.com/?3Exmmr3Plyp 
En fait si je me met en G7 par exemple le bouton CP doit m'écrire CP en code 41 en G7 et en H7

foo · Answer

Re
Regarde si ca te va

Sub cp()
Lig = ActiveCell.Row
Col = ActiveCell.Column
   Cells(Lig, Col).Select
   Cells(Lig, Col).Value = "CP"
      With Selection.Font
          .Name = "Arial"
          .FontStyle = "Gras"
          .Size = 12
          .Strikethrough = False
          .Superscript = False
          .Subscript = False
          .OutlineFont = False
          .Shadow = False
          .Underline = xlUnderlineStyleNone
          .ColorIndex = 3
      End With
   Cells(Lig, Col + 1).Select
   Cells(Lig, Col + 1).Value = "CP"
      With Selection.Font
         .Name = "Arial"
         .FontStyle = "Gras"
         .Size = 12
         .Strikethrough = False
         .Superscript = False
         .Subscript = False
         .OutlineFont = False
         .Shadow = False
         .Underline = xlUnderlineStyleNone
         .ColorIndex = 3
      End With
End Sub

A+
Maurice

phirene26 · Answer

super génial Merci beaucoup Momo ;)

foo · Answer

Re
Merci
tu peux aussi faire conne ca

Sub cp()
Lig = ActiveCell.Row
Col = ActiveCell.Column
   Cells(Lig, Col).Value = "CP"
   Cells(Lig, Col).Font.ColorIndex = 3
   Cells(Lig, Col + 1).Value = "CP"
   Cells(Lig, Col + 1).Font.ColorIndex = 3
End Sub

car la police est dega en arial gras et size 12

A+
Maurice

Erreur dans une macro

10 réponses

Discussions similaires

Newsletters