Erreur dans une macro

Résolu/Fermé

phirene26 Messages postés 23 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 24 octobre 2013 - 23 mai 2013 à 10:21
foo - 23 mai 2013 à 12:47

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

A voir également:

Erreur dans une macro
Erreur 0x80070643 - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

10 réponses

Réponse 1 / 10

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
23 mai 2013 à 10:25

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

Réponse 2 / 10

phirene26 Messages postés 23 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 24 octobre 2013
23 mai 2013 à 10:37

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

Réponse 3 / 10

foo
23 mai 2013 à 11:06

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

Réponse 4 / 10

phirene26 Messages postés 23 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 24 octobre 2013
23 mai 2013 à 11:13

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 10

foo
23 mai 2013 à 11:25

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

Réponse 6 / 10

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
Modifié par ccm81 le 23/05/2013 à 11:27

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 Messages postés 23 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 24 octobre 2013
23 mai 2013 à 12:29

cela concerne la cellule sélectionnée et celle droite

Réponse 7 / 10

phirene26 Messages postés 23 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 24 octobre 2013
23 mai 2013 à 12:14

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

Réponse 8 / 10

foo
23 mai 2013 à 12:39

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

Réponse 9 / 10

phirene26 Messages postés 23 Date d'inscription mercredi 22 mai 2013 Statut Membre Dernière intervention 24 octobre 2013
23 mai 2013 à 12:42

super génial Merci beaucoup Momo ;)

Réponse 10 / 10

foo
23 mai 2013 à 12:47

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

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

[Sujet groupé]Connexion instagram :Une erreur s'est produite, veuillez réessayer

Discussions similaires

Newsletters