XL 2021 Cellule vide : sélectionner et atteindre

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous :)
Je vous souhaite un beau dimanche :)

Je n'arrive pas à coder correctement pour résoudre mon besoin :
- On ignore le clic en colonne "H"
- Si il y a une cellule vide dans les plages "g7:g dernière ligne" et "j7:s dernière ligne"
- Le MsgBox ("Manque Information dans la cellule ou Affectation de l'appel") s'affiche et la cellule vide est sélectionnée et atteinte.

Auriez-vous le bon code ?
En cas, je joins le petit fichier test.

Un grand merci à toutes et à tous :)
Je continue mes tâtonnements de "bricolou" :)
 

Pièces jointes

  • cellule vide test.xlsm
    21.7 KB · Affichages: 6
Solution
Bonjour
Regarde comme ceci,
à modifier ou pas avecles colonnes cahées

Private Sub Worksheet_SelectionChange(ByVal R As Range)
Application.EnableEvents = False
If Not Intersect(R, Range("h7:h30000")) Is Nothing And R.Count = 1 Then Exit Sub

With ActiveSheet
'MsgBox UsedRange.Rows.Count
drlg = .Cells(.UsedRange.Rows.Count, 5).End(xlUp).Row
Set zone = Union(.Range("g7:g" & drlg), .Range("s7:s" & drlg))
'zone.Select
For Each i In zone
If i = "" Then
MsgBox i.Address
i.Select
Application.EnableEvents = True
Exit Sub
End If

Next

End With
Application.EnableEvents = True
End Sub
' en cas d'arret de la macro en cour de route
Sub resetenents()
Application.EnableEvents = True
End Sub
Bjr sousou :)...

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
"Mais tu n'as pas répondu à ma question : pourquoi les cellules vides sont gênantes ?"
Désolé : toutes les cellules de chaque ligne doivent être remplies avant de passer à autre chose.
Dans le cas contraire, des informations vont être manquantes, ce qui serait un problème.

"Et s'il y a plusieurs cellules vides elles devraient être toutes sélectionnées, comment les remplir ?"
S'il y a une ou plusieurs cellules non remplies sur la ligne, seule la cellule Col E de la ligne est sélectionnée avec possibilité d'aller remplir les cellules sans que le code s'exécute à chaque sélection sur la même ligne.

En fait, le code devrait s'éxécuter que si clic ailleurs que dans la ligne où sont la ou les cellules non remplies.
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 210
Messages
2 086 279
Membres
103 170
dernier inscrit
HASSEN@45