une fois ecrire dans la plage vide "ce code s'activera"

[jaouad]

🙂 salut le forum
svp j'aimerai bien que vous m'aidais a ce propos
je veux que si je remplie une plage vide ex : "A10:B12" ce code s'activera ( ce code consiste a afficher un message demandant de remplir la plage vide "A1:C2") :

Sub ControleCellules()
Dim Cell As Range
Dim Resultat As String

For Each Cell In Range("A1:C2")
If Not Cell = "" Then
Resultat = Resultat & Cell.Address & Chr(10)
End If
Next Cell

If Resultat = "" Then
MsgBox "remplir d'abord plage A1:C2"
End If

End Sub

merci d'avance les amis
et je vous en serai tres reconnaissant🙂

 

[Guest]

Re : une fois ecrire dans la plage vide "ce code s'activera"

Bonjour,

Malgrès les ambiguités de ta question, essaye cela:

code à mettre dans le module de code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
   [COLOR=yellowgreen] 'Si la cellule qui vient de changer de valeur est dans la plage "A10:B12"
[/COLOR]    If Not Intersect(Target, Range("A10:B12")) Is Nothing Then    
       [COLOR=yellowgreen] 'Si le nombre de données dans "A10:B12" = au nombre de cellule:
        'la plage est pleine
[/COLOR]        If Application.CountA(Range("A10:B12")) = Range("A10:B12").Cells.Count Then           
            [COLOR=yellowgreen]'Si la plage A1:C2 est vide (aucune valeur[/COLOR]
            If Application.CountA(Range("A1:C2")) = 0 Then
                              [COLOR=yellowgreen]'Demander de la remplir
[/COLOR]               MsgBox "remplir d'abord plage A1:C2"            
            End If        
        End If    
    End If
End Sub

A+

 

[jaouad]

Re : une fois ecrire dans la plage vide "ce code s'activera"

bonjour le forum
😉Merci mon ami ca bien marché
bravo
a + 😉

 

[Guest]

Re : une fois ecrire dans la plage vide "ce code s'activera"

Re,

je n'étais pourtant pas vraiment sûr de répondre à ton besoin.
coup de chance!

A+++😀