Impression couleur sous condition

Bonjour le forum

je joins un fichier

je créer un emplacement ok

D3A etc. le valide retour Imprimer par tiroir je choisi le tiroir D impression ok

le tous fonctionne très bien

le truc que je voudrais réaliser

et le suivant

quand je créer un emplacement avec un commentaire ( créer un exemple puis cliquer sur commentaire la case et libre)

qui comprend le mot mécatool dans la phrase et seulement mécatool

je voudrais que cette case D3A soit écrite en rouge au lieu du noir

que j'ai aujourd'hui pour bien attire œil sur ces cases

les cases qui non pas de commentaire ou qui ne contienne pas le mot mécatool reste en noir

cordialement

aiglon74

Bonjour,

Tu peut faire cela avec une MFC (mise en forme conditionnelle) en utilisant la fonction CHERCHE pour verifier si le texte contient mécatol ou pas...

bonsoir pierre.jy

pour le MFC ok pas de souci

mais pour l'importer dans ma macro impression

la je bloque

en feuille BASE meme si la police et en rouge a l'impression avec ma macro

la police et noir

cordialement

aiglon74

Bonsoir,

je comprends pas , tu veux dire que tu as un problème d'impression et que sur le papier ton rouge ressemble au noir ?

tu devrais peu-être mieux choisir ta couleur ..

où bien changer la couleur de fond afin que ce soit plus visible ..

non je dit

si je fait une impression de ma feuille BASE ecrit en rouge

en passant par impression et apercu impression pas de probleme

mais je passe par une macro de remise en forme et la je bloque

voir fichier

Et elle fait quoi ta macro de remise en forme , tu as un code ?

regarde dans le fichier joins

feuille UserForm4 code

le tous fonctionne bien

je voudrais juste de la couleur dans le tableau d'impression pour attirer œil sur les cellules qui corresponde

en feuil BASE D1A cellule B7

5575 cellule C7

M30 cellule D7

mecatool cellule G7

en feuil impr

passe en cliquant sur IMPRIMER IMPRIMER PAR TIROIR CLIQUE SUR LA LETTRE D PUIS SUR VOIR AVANT IMPRESSION

la correspondance et exacte mais en noir

comme j'ai mecatool en commentaire je voudrais que écriture soit rouge

cordialement

aiglon74

cordialement

aiglon74

bonjour,

je ne comprends pas ? explique nous ce que fait ta macro de mise en forme et montre nous la .. ici .

s'il s'agit d'imprimer ta feuille D .. , il y as un problème car tu n'as aucune MFC sur cette feuille !!!

voici la macro qui ce trouve dans mon fichier joins

Private Sub CommandButton1_Click()

'aiglon74

'--- Déclaration des variables

Sheets("base").Visible = False

Sheets("base").Activate

For ln = 7 To Range("B" & Rows.Count).End(xlUp).Row

f = Left(Range("B" & ln), 1)

l = Mid(Range("B" & ln), 2, 1)

c = Right(Range("B" & ln), 1)

v = Range("C" & ln).Text & Chr(10) & Range("D" & ln).Text & Chr(10) & Range("E" & ln)

ld = Sheets(f).Range("B1:L1").Find(c).Column

Sheets(f).Cells(Val(l) + 1, ld).Value = v

Next ln

Dim I As Integer

Dim Feuille() As Variant

Dim NbFeuille As Integer

'Action quand on clique sur le Bouton "Créer"

'--- Déclaration des variables

For I = 1 To 9

If Me.Controls("CheckBox" & I) = True Then

Exit For

End If

Next I

If I = 10 Then

MsgBox "Il faut choisir au moins 1 tiroir"

Exit Sub

End If

'--- Impression des onglets sélectionnés

For I = 1 To 9

If Me.Controls("CheckBox" & I) = True Then

ReDim Preserve Feuille(NbFeuille)

Feuille(NbFeuille) = Me.Controls("CheckBox" & I).Caption

NbFeuille = NbFeuille + 1

End If

Next I

Unload Me

Application.ScreenUpdating = False ' Interdit le raffraichissement écran

'--- Impression des feuilles listées

For I = 0 To UBound(Feuille)

Sheets(Feuille(I)).Visible = True

Next I

With Sheets(Feuille)

.PrintPreview

End With

For I = 0 To UBound(Feuille)

Sheets(Feuille(I)).Visible = False

Next I

Range("B2:L9").Select 'efface les cellules supprimées

Selection.ClearContents

Application.ScreenUpdating = True ' Autorise le raffraichissement écran

UserForm4.Show ' Affiche l'Userform

End Sub

une MCF sur feuil D par rapport a une cellule d'une autre feuil (BASE)

je crois que ce n'est pas possible

Bonsoir;

un peu illisible ce code ... surtout sans balises ...

donc si j'ai bien compris ton commentaire n’apparaît pas sur la feuille D ? dans ce cas "colore" ta cellule lorsque tu colle sa valeur

..
Sheets(f).Cells(Val(l) + 1, ld).Value = v
...

tu teste si le commentaire contient ta chaîne et tu change si nécessaire la couleur de police...

puis n'oublie pas de remettre toutes les polices en noir lorsque tu efface ta grille ..

ok

un peu perdu

mais je te tiens au courant

Rechercher des sujets similaires à "impression couleur condition"