rappel du texte dans cellules fusionnées

Ilino

XLDnaute Barbatruc

• 3 Novembre 2012

• #2

Re : rappel du texte dans cellules fusionnées

Re Bonsoir Forum
je ne sais pas si ma demande est explisive ?😕 ou bien c'est le week end?😱

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 3 Novembre 2012

• #3

Re : rappel du texte dans cellules fusionnées

Bonsoir,

30 minutes, juste le temps de mijotter un peu à feu doux 🙄

Quelles cellules sont fusionnées ?


G

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Novembre 2012

• #4

Re : rappel du texte dans cellules fusionnées

SORRY ;
voila la cellule ou je veux mettre le text (comme arriere plan exemple "veuillez tappez le Nom" ) est c3: h3 au lieu c3
est possible avec le code VBA ci dessus

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 3 Novembre 2012

• #5

Re : rappel du texte dans cellules fusionnées

Bonsoir Ilino,

En fait, j'ai testé ton code, il fonctionne en C3, D3, E3 et même si on fusionne C3:C4, D3😀4, E3:E4.

Je ne vois donc pas où es le problème, ni ce que tu veux. Je pense d'ailleurs ne pas être le seul. D'ailleurs, qu'entends-tu exactement par : "Rappel du texte" ?

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Novembre 2012

• #6

Re : rappel du texte dans cellules fusionnées

Bonsoir FREDOO
Chez moi ça fonctionne pas « j’ai une erreur d’execution13 ….incompatibilité de type »
RAPPEL DU TEXTE = text comme Arriere plan dans la ou les cellules
merci

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 3 Novembre 2012

• #7

Re : rappel du texte dans cellules fusionnées

Re-bonsoir,

Peux-tu me joindre ton fichier avec juste la feuille en question et des données anonymisées juste sur la plage C3:E5 ?

Ainsi, je pourrais re-tester.

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Novembre 2012

• #8

Re : rappel du texte dans cellules fusionnées

Re
ok sans faute ci joint le fichier de Valter

 

Pièces jointes

• text rappel.xlsm

  17.7 KB · Affichages: 42
• text rappel.xlsm

  17.7 KB · Affichages: 40
• text rappel.xlsm

  17.7 KB · Affichages: 41

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 3 Novembre 2012

• #9

Re : rappel du texte dans cellules fusionnées

Bonsoir,

Un fichier qui reproduit le problème, ce serait bien comme le mentionne Fred0o.

Aussi as-tu essayé au début de la macro : On Error Resume Next ?


G

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 3 Novembre 2012

• #10

Re : rappel du texte dans cellules fusionnées

Re-bonsoir,

Désolé mais même avec le fichier, je ne vois pas où es le problème. Il n'y a pas de cellule fucionnée dans le dernier fichier posté.

A+

 

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 3 Novembre 2012

• #11

Re : rappel du texte dans cellules fusionnées

Bonsoir,

Il n'y a pas de cellule fusionnée et ça fonctionne bien quand on efface le texte, la mention grisée revient.

Dans la section Fonction, il y a une erreur de frappe, tu as laissé Prénom.

G

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Novembre 2012

• #12

Re : rappel du texte dans cellules fusionnées

Re bonsoir tous le monde
oui je sais
Essayez de fusionner les cellules C3 , D3 et E3 ?
ci joint le meme exemple

 

Pièces jointes

• text rappel.xlsm

  17.8 KB · Affichages: 38
• text rappel.xlsm

  17.8 KB · Affichages: 38
• text rappel.xlsm

  17.8 KB · Affichages: 37

Vote positif 0 Vote négatif

G

Gelinotte

XLDnaute Accro

• 3 Novembre 2012

• #13

Re : rappel du texte dans cellules fusionnées

Bonsoir,

Aussi, pour que la colonne Fonction fonctionne bien, j'ai dû effacer les mises en forme conditionnelle


G

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 3 Novembre 2012

• #14

Re : rappel du texte dans cellules fusionnées

Re-bonsoir,

Si j'ai bien compris, voici la macro corrigée :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    '----------- Colonne C : Nom
    If Not Intersect(Target, Range("c3:c42")) Is Nothing Then
        If Target(1) = "" Then Target = "Nom"
            If Target(1) = "Nom" Then
                Target(1).Font.Color = RGB(216, 216, 216)
            Else
                Target(1).Font.Color = RGB(0, 0, 0)
        End If
        Exit Sub
    End If
    '----------- Colonne D : PréNom
    If Not Intersect(Target, Range("d3:d42")) Is Nothing Then
        If Target(1) = "" Then Target = "Prénom"
            If Target(1) = "Prénom" Then
                Target(1).Font.Color = RGB(216, 216, 216)
            Else
                Target(1).Font.Color = RGB(0, 0, 0)
        End If
        Exit Sub
    End If
    '----------- Colonne E : Fonction
    If Not Intersect(Target, Range("e3:e42")) Is Nothing Then
        If Target(1) = "" Then Target = "Fonction"
            If Target(1) = "Prénom" Then
                Target(1).Font.Color = RGB(216, 216, 216)
            Else
                Target(1).Font.Color = RGB(0, 0, 0)
        End If
        Exit Sub
    End If
End Sub

A+

 

Vote positif 0 Vote négatif

Ilino

XLDnaute Barbatruc

• 3 Novembre 2012

• #15

Re : rappel du texte dans cellules fusionnées

Re bonsoir
je suis désolé et je sais que c'est fatiguant mais je vous dis que ça fonctionne tres bien sauf je vous demande de bien vouloir m'explique la difference entre ces deux code ( patie Nom seulement si c'est possible 😱)
grazie

 

Vote positif 0 Vote négatif