Bonjour,
Je voudrais créer deux modes grâce à deux boutons "Mode saisie" et "Mode impression".
En mode impression, je supprime les lignes vides qui existent avant mon total de bas de page.
J'utilise cette macro sous mon bouton "Mode impression".
Voir bas de page.
Je voudrais une macro sous mon bouton "Mode Saisie" qui me remette les lignes vides qui viennent d'être supprimées.
Merci d'avance
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 28/11/2009 par ygail
'
Dim myCtrl, dernLigne, I
'détermine le numéro de la dernière ligne utilisée
dernLigne = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Count - 1
'désactive la mise à jour de l'écran afin d'accélérer les traitements
Application.ScreenUpdating = False
'Pour toutes les lignes en partant de la dernière
For I = dernLigne To 1 Step -1
nn = Range("b" & I).Formula 'donne à la variable nn le contenu de la
'formule. Si elle n'en contient pas nn prend la valeur null
If Left(nn, 4) = "=SUM" Then GoTo suivant
'si la formule commence par =SUM on ne supprime pas la ligne et on passe à la valeur suivante de I
'La fonction Excel CountA correspond à =NBVAL
If Application.WorksheetFunction.CountA(Range("A" & I & ":b" & I)) = 0 Then
Rows(I).Delete Shift:=xlUp
End If
suivant:
Next I
End Sub
