blocage de ligne et message pour ligne vide

[tallia64]

Bonjour je souhaiterais bloquer juste la ligne (A2) dans ma feuille excel. D'autre part je souhaiterai faire une maccro par rapport aux lignes vides et si elle trouve une ligne vide que le message suivant s'affiche "Cette ligne est vide".
Pouvez vous m'aider s'il vous plait ?
Je vous en remercie d'avance
Tallia 🙂

 

[roro69]

Re : blocage de ligne et message pour ligne vide

Bonjour voici
pour la première question:
Si tu veux figer la ligne 2 par exemple,
sélectionne la ligne 3 puis vas dans le menu fenêtre et cliques sur "figer les volets".

Pour la seconde/
Sub Ligne()
derniereLigne = ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
For r = derniereLigne To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then MsgBox "la Ligne " & r & " est vide"

Next r
Application.ScreenUpdating = True
End Sub

A++

 

[tallia64]

Re : blocage de ligne et message pour ligne vide

Bonsoir roro69 et merci pour votre aide. Petit souci quand je fige les volets cela n'empêche pas de supprimer les données de ma ligne; et pour le second code qui fonctionne bien mais je voudrais juste qui mette le message pour la ligne sélectionné car là il fait un test sur 800 lignes. Je vous remercie Tallia

 

[roro69]

Re : blocage de ligne et message pour ligne vide

rebonsoir tallia
Voici pour le code de la ligen:

Sub Vide()
If Application.WorksheetFunction.CountA(Rows(ActiveCell.Row)) = 0 Then MsgBox "la Ligne est vide"
End Sub

Par contre ta cellule tu saouhaite la verouillé ou que l'on ne puisse pas la selectionné.
A++

 

[tallia64]

Re : blocage de ligne et message pour ligne vide

rebonsoir roro69 merci pour le code il fonctionne trés bien. par rapport à ma ligne je souhaite que l'on ne puisse pas la sélectionner. Je vous remercie Tallia.

 

[roro69]

Re : blocage de ligne et message pour ligne vide

RE
Voici un code à mettre dans la feuille:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 1 Then Selection.Offset(1, 0).Select
End Sub

A ++

 

[tallia64]

Re : blocage de ligne et message pour ligne vide

Génial un grand merci bonne soirée TALLIA.

 

[tallia64]

Re : blocage de ligne et message pour ligne vide

bonjour j'ai encore besoin de vos précieux conseils !! En fait j'ai voulu associé votre code au mien de manière à qu'il y est deux choix "suppression ou non suppression" de la ligne. Le problème est que mon code boucle toujours sur le 1er choix "cette ligne est vide" même quand ma ligne n'est pas vide. Voici mon code pourriez vous m'aider s'il vous plait ?
Un grand merci TALLIA.

Sub SUPPRIM_LIGNE()

If Application.WorksheetFunction.Count(Rows(ActiveCell.Row)) = 0 Then
MsgBox ("Cette ligne est vide")
Else
If Not Application.WorksheetFunction.Count(Rows(ActiveCell.Row)) = 0 Then
MsgBox ("Voulez vous supprimer cette ligne ") & vbCrLf &vbrlf _
, vbQuestion + vbYesNo, "ATTENTION ...")) = vvYes then
Selection.delete shift := xlup
End If
End If
End Sub

 

[tallia64]

Re : blocage de ligne et message pour ligne vide

Je reformule ma demande car je viens de me rendre compte que ce code me déclenche que des erreurs. En fait je souhaitais simplement qu'il y est un 1er test sur la ligne sélectionnée et si vide le message s'affiche "cette ligne est vide" et second test si la ligne n'est pas vide message "voulez vous supprimer cette ligne ?".
En espérant que vous puissiez m'aider je vous en remercie d'avance.
TALLIA

 

[tallia64]

Re : blocage de ligne et message pour ligne vide (RESOLU)

Je viens de trouver le problème sur mon code. Le voici si il peut vous aider dans vos requêtes !!!
Encore un grand merci TALLIA 🙂

Sub SUPPRIM_LIGNE()

If Application.WorksheetFunction.CountA(Rows(ActiveCell.Row)) = 0 Then
MsgBox ("Cette ligne est vide")
Range("A3").Select
Else
If Not Application.WorksheetFunction.CountA(Rows(ActiveCell.Row)) = 0 Then
MsgBox ("Voulez vous supprimer cette ligne ?") & vbCrLf & vbCrLf _
, vbQuestion + vbYesNo
Selection.Delete shift:=xlUp
Range("A3").Select
End If
End If
End Sub

 

[roro69]

Re : blocage de ligne et message pour ligne vide

Voir ci-dessous

 

[roro69]

Re : blocage de ligne et message pour ligne vide

Re effacement du message précédent et plutot essayer ceci

Sub Vide()
If Application.WorksheetFunction.CountA(Rows(ActiveCell.Row)) = 0 Then
MsgBox "la Ligne est vide"
Else
If MsgBox("Supprimer la ligne ?", vbYesNo + vbQuestion, "Attention...") = vbYes _
Then ActiveCell.EntireRow.Delete
End If
End Sub

A++