Aide Excel
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.

Aide Excel

Forum d'aide et d'entraide sur Excel : cours, astuces, tutoriaux...
 
AccueilPortailRechercherDernières imagesS'enregistrerConnexion
-39%
Le deal à ne pas rater :
Pack Home Cinéma Magnat Monitor : Ampli DENON AVR-X2800H, Enceinte ...
1190 € 1950 €
Voir le deal

 

 Reconnaitre cellule au format conditionnel

Aller en bas 
2 participants
AuteurMessage
tony13800
Membre



Nombre de messages : 8
Date d'inscription : 05/04/2007

Reconnaitre cellule au format conditionnel Empty
MessageSujet: Reconnaitre cellule au format conditionnel   Reconnaitre cellule au format conditionnel EmptyJeu 5 Avr à 21:46

Bonjour
j'ai un petit souci
sur une page excel, j'ai des cellules avec format conditionnel : en jaune si pas d'ecritures, en blanc si ecritures
j'ai un bouton imprimer sur cette feuille
je veux faire une macro pour ce bouton :
* si qd je clic sur le bouton il y a une cellule en jaune, ouvrir une boite de dialogue ( etes vous surs de vouloir imprimer?)
* si pas de cellules en jaune, imprimer le feuille

qqn peut m'aider svp?
Revenir en haut Aller en bas
dachevid
Membre



Nombre de messages : 275
Date d'inscription : 05/09/2005

Reconnaitre cellule au format conditionnel Empty
MessageSujet: Re: Reconnaitre cellule au format conditionnel   Reconnaitre cellule au format conditionnel EmptyVen 6 Avr à 17:06

Bonjour,

Je n'ai pas utilisé les couleurs, j'ai testé si les cellules sont vides, ce que fait aussi la mise en forme conditionnelle.

A coller dans VBA Editor :
--------------------------------
Sub imprime()
'
Range("B2:B11").Select
nombre = 0
For Each c In Selection
If c.Value <> "" Then
nombre = nombre + 1
End If
Next

If nombre = 0 Then
rep = MsgBox("Aucune cellule remplie, êtes-vous sûr(e) de vouloir imprimer ?", vbYesNo + vbQuestion, "Attention !")
If rep = vbYes Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Else: ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
Range("A1").Select
End Sub
-----------------------
J'ai travaillé avec la plage B2:B11, à changer bien sûr si besoin.
A+
Revenir en haut Aller en bas
tony13800
Membre



Nombre de messages : 8
Date d'inscription : 05/04/2007

Reconnaitre cellule au format conditionnel Empty
MessageSujet: Re: Reconnaitre cellule au format conditionnel   Reconnaitre cellule au format conditionnel EmptySam 7 Avr à 9:00

slt
merci du tuyau
le pb c que j'ai aussi des cellules vides mais qu'il ne faut pas remplir : je vais essayer de modifier en prenant en compte la couleur...
a+
Revenir en haut Aller en bas
Contenu sponsorisé





Reconnaitre cellule au format conditionnel Empty
MessageSujet: Re: Reconnaitre cellule au format conditionnel   Reconnaitre cellule au format conditionnel Empty

Revenir en haut Aller en bas
 
Reconnaitre cellule au format conditionnel
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» copie du format d'une cellule aux cellules de la ligne
» calcul conditionnel

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Aide Excel :: Entraide & apprentissage :: A l'aide...-
Sauter vers:  
Ne ratez plus aucun deal !
Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
IgnorerAutoriser