Impression avec un bouton et la condition (si / et ou) (RESOLU))

Bambi35

XLDnaute Occasionnel
Bonjour à tous

J'aimerai mettre une autre condition dans la macro pour lancer l'impression de la feuil1 (Fiche récapitulatif) Actuellement je lance l'impression que si certaine cellule sont plein.
La seconde serai, si une personne rentre une activité dans l'une des cellules (colonne "D" de 22 à xxxxx) et un prénom dans l'une des cellules (colonne "C" de 22 à xxxxx) alors les cellules de la même ligne doivent être renseigne (colonnes E / F / H / J / L de 22 à xxxx) pour lancer l'impression
Je ne sais pas comment mettre la condition pour si une cellule n'est pas vide alors les autres ne doivent pas être vide
Merci pour votre aide

@++++
Bambi35
 

Fichiers joints

Dernière édition:

Bambi35

XLDnaute Occasionnel
Re : Impression avec un bouton et la condition (si / et)

Bonsoir jpb388
Super mais serait-il possible de détailler
pour mieux comprendre

Dim Sh As Worksheet, Lg&, i&
Set Sh = Sheets("Inscription")
Lg = Sh.Range("D" & Rows.Count).End(xlUp).Row
For i = 22 To Lg
If Application.WorksheetFunction.CountA(Sh.Range ("E" & i & ":L" & i)) < 8 Then
Err.Raise Number:=vbObjectError + 1, Description:="ligne non complete", Source:="Ligne N° " & i

Merci encore cela fonctionne très bien

Bambi35
@++++++
 

jpb388

XLDnaute Accro
Re : Impression avec un bouton et la condition (si / et)

re
Dim Sh As Worksheet, Lg&, i& 'déeclaration des variables le &=as long
Set Sh = Sheets("Inscription") ' sh representera la feuille Sheets("Inscription")
Lg = Sh.Range("D" & Rows.Count).End(xlUp).Row 'recherche de la derniere ligne
For i = 22 To Lg
' en dessous on compte le nombre de case non vide -8 c'est qu'il y en a une de vide
If Application.WorksheetFunction.CountA(Sh.Range("E" & i & ":L" & i)) < 8 Then
' si une de vide message d'erreur nous ramenant a la macro appelante _
affichage du message et sortie du programme

Err.Raise Number:=vbObjectError + 1, Description:="ligne non complete", Source:="Ligne N° " & i
 

Bambi35

XLDnaute Occasionnel
Re : Impression avec un bouton et la condition (si / et)

Bonsoir job 388
Merci pour ton retour cela va m' aider par la suite
Merci encore
@+++++
Bambi35
 

Discussions similaires


Haut Bas