Boucle pour une validation de données Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 9 juillet 2014, 11:22

Bonjour le forum,
j'ai parcouru les plus de trois mille réponses sur ce sujet, mais rien ne me convient.
je cherche à créer une boucle For...Next pour entrer une validation de données dans plusieurs lignes d'un tableau.
Merci de jeter un oeil sur le fichier joint.
Bonne journée
Papy Pierrot
exemple 1.xlsm
(14.29 Kio) Téléchargé 8 fois
Pierrot
E
EngueEngue
Membre impliqué
Membre impliqué
Messages : 1'493
Inscrit le : 12 décembre 2013
Version d'Excel : 2010

Message par EngueEngue » 9 juillet 2014, 11:33

a mettre dans le module de ta feuille
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Target.Row Mod 4 = 0 Then
        Select Case Target.Column
        Case 1
            If Target.Offset(0, 3) = "" Then
            Else
                MsgBox ("NON")
                Target.Value = ""
            End If
        Case 4
            If Target.Offset(0, -3) = "" Then
            Else
                MsgBox ("NON")
                Target.Value = ""
            End If
        End Select
    End If
    Application.EnableEvents = True
End Sub
Avatar du membre
Cappe Pierre
Membre impliqué
Membre impliqué
Messages : 1'997
Appréciations reçues : 8
Inscrit le : 24 novembre 2012
Version d'Excel : 2010

Message par Cappe Pierre » 9 juillet 2014, 11:46

Bonjour Engue Engue,
Un tout grand merci et de plus, ça fonctionne, je vais juste modifié le Msg "NON
Encore merci et bon après-midi
Papy Pierrot
Pierrot
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message