Format cellule en fonction du FORMAT d'une autre

[anocheda]

bonjour,
Je travail sur excel 2003
j'aimerai savoir s'il est possible que le format d'une cellule prenne automatiquement le format d'une autre?
par exemple, en A1 le format change souvent par mise en forme conditionnelle et j'aimerai que la cellule A2 ait le meme format que A1 quand il change.
Si A1 est rouge il faut que A2 aussi ...
Je ne peux pas me servir de la mise en forme conditionnelle sur la cellule A2 puisque j'utilise une macro assez compliquée pour donner les formats de A1 (je peux en avoir une infinité et pas uniquement 3)

Voila merci d'avance et vous etes toujours une aide formidable,

Antoine

 

[bpol]

Re : Format cellule en fonction du FORMAT d'une autre

bonsoir,

pourquoi ne pas inclure la cellule A2 dans ta macro

Bpol

 

[Pierrot93]

Re : Format cellule en fonction du FORMAT d'une autre

Bonjour anocheda, bpol

pas tout compris moi, tu dis :

par exemple, en A1 le format change souvent par mise en forme conditionnelle

et ensuite :

Je ne peux pas me servir de la mise en forme conditionnelle sur la cellule A2 puisque j'utilise une macro assez compliquée pour donner les formats de A1

A priori, comme ca, sans plus de détails, je dirais qu'il faut appliquer la même méthode à la cellule A2 que celle appliquée à la cellule A1...

bonne journée
@+

 

[anocheda]

Re : Format cellule en fonction du FORMAT d'une autre

Bonjour Messieur,
Merci pour vos reponses rapides.
Bon je me suis un peu mal exprimé :
J'ai une macro que j'ai trouvé sur Internet qui me permet de choisir n'importe quel format pour une cellule en fonction de sa valeur. C'est un peu comme une mise en forme conditionnelle mais sans restriction à 3, je peux en faire une infinité avec taille, couleur...
J'ai appliqué cette macro à toute ma collone A qui peut prendre les valeurs: Urgent qui se met en rouge, A faire en orange, proposer en vert et fait en gris.
Dans mes colonnes de B à Z... j'ai le description des taches de la colone A et j'aimerai que toute ma ligne se colorie de la meme facon que ma colonne A.
Si A3 est en gris, il faut que B3, C3...Z3 soient egalement en gris.
Je ne peux pas appliquer ma macro à toute la ligne puisque le principe est restreint, elle marche comme suit: Dans une autre feuille de mon classeur, j 'ai une colonne format ou je peux marqué les valeurs que je veux dans le format que je veux et ensuite, ou que je sois dans mon classeur, si je marque la meme valeure, elle va prendre le format donné.
Par exemple si dans ma feuille format j'ecris URGENT en rouge, gras et italique, a chaque fois que je vais ecrire urgent n'importe ou dans mon classeur, ca va l'ecrire en rouge gras italique.
Bref je ne peux appliquer cette métode que si la valeur de mon texte est dans ma colonne format alors que toutes mes colones de B à Z vont changer de textes...
Voila j'espère avoir été clair...
Par ailleur je recommande cette macro faite par Didier FOURGEOT (MDF) qui marche du tonner

Merci

Antoine

 

[pierrejean]

Re : Format cellule en fonction du FORMAT d'une autre

bonjour a tous

A tester:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 27 Then
Range("A" & Target.Row).Copy
Range("B" & Target.Row & ":Z" & Target.Row).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub

 

[anocheda]

Re : Format cellule en fonction du FORMAT d'une autre

Bonjour a tous,
merci pour vos réponse
le programme marche un peu mais il fait beuger tout le projet...
je sais le faire avec macro mais c'est vraiment ultra lourd et ca fait ramer tout le fichier.
J'aurai aimé le faire sans passer par les macros...pour un truc aussi simple c'est dingue qu'il n'y ai pas de fonctions...

Sinon est ce qu'il y a moyen de mettre une macro dans une feuille qui se declqnche automatiquement que quand on change la valeur de certaines cellules, je sais le faire quand on bouge sur la feuille mais pas pour un certains nombre de cellules...

En tout cas merci pour les réponses

antoine

 

[ROGER2327]

Re : Format cellule en fonction du FORMAT d'une autre

Bonjour à tous

Une proposition en développant la procédure de pierrejean :

[COLOR="DarkSlateGray"]Private Sub Worksheet_Change(ByVal Target As Range)
Dim uTarget As Range, oCel As Range, lCol As Long, i As Long

[B][COLOR="SeaGreen"]'-------------- Les lignes à adapter sont les lignes commentées. --------------[/COLOR][/B]

   Set uTarget = Intersect(Target, Columns([B]1[/B])) [B][COLOR="SeaGreen"]'Zone à traiter[/COLOR][/B]
   If Not uTarget Is Nothing Then
      Application.ScreenUpdating = False
      lCol = [B]26[/B] [B][COLOR="SeaGreen"]'Rang de la dernière colonne à formater (26 <=> colonne Z)[/COLOR][/B]
      With Sheets("[B]Feuil2[/B]").Range("[B]A2:A11[/B]") [B][COLOR="SeaGreen"]'Zone des formats-modèles.[/COLOR][/B]
         For Each oCel In uTarget.Cells
            For i = 1 To .Rows.Count
               If UCase(oCel.Value) = UCase(.Cells(i, 1).Value) Then Exit For
            Next i
            If i < 1 + .Rows.Count Then
               Application.EnableEvents = False
               .Cells(i, 1).Copy
               oCel.Resize(1, 1 + lCol - uTarget.Column).PasteSpecial _
                  Paste:=xlPasteFormats
               Application.CutCopyMode = False
               Application.EnableEvents = True
            End If
         Next oCel
      End With
      uTarget.Select
      Application.ScreenUpdating = True
   End If
   Set uTarget = Nothing
End Sub[/COLOR]

à placer dans le module de la feuille objet de la mise en forme.
Ci-joint un classeur d'essai. Merci de me faire part de vos observations...​

ROGER2327

 

[anocheda]

Re : Format cellule en fonction du FORMAT d'une autre

Bonjour,
Hé bé la je dis solide, c'est exactement ce qu'il me fallait et ca marche du toner...bref merci!
Je vais regarder plus attentivement le code pour comprendre comment ca marche mais en tout cas c'est parfait.
merci à tous et je suis toujours haluciné par la rapidité et la pertinence des réponses sur ce formum!!
Antoine