Test sur colonnes

Bonjour a tous et toutes, forum bonjour

Voila j'ai 11 colonnes de A à K avec une plage de travail A2:K27

Donc 3 colonnes sont renseignées E-F-G

La colonne E contient une valeur en Euro

La colonne F contient une date

La colonne G contient un lieu

J'utilise ces codes ici pour exemple

Dim Lig
Lig=activeCell.Row
Cells(Lig,10) etc etc

Je souhaiterai SVP que si ces trois colonnes ci-dessus sont renseignées que les autres colonnes A-B-C-D et H-I-J-K ne contiennent rien, vides effacées.

Merci beaucoup et si un petit code VBA - XL 2007 me permettant de tester ces colonnes hé bien je suis preneur.

Je vous souhaite une bonne fin d'après midi.

Raymond

Hello, pour la formalité

Comment veut-tu vérifier cela avec un bouton ou automatiquement au rempliser d'un cellule ?

Bonjour a tous et toutes, bonjour forum

Bonjour AbiBow,

Merci bien pour la réponse je préfère SANS bouton, je dois incorporer ce test colonne dans mon programme. un petit code simple devrait suffire.

Merci et une très bonne journée

Raymond

Bonjour,

Voici le code à mettre dans Worksheet_Change de la feuille désirée :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rPlage1 As Range, rPlage2 As Range

    ' Si saisie uniquement des colonnes A à K
    If Target.Column >= 1 And Target.Column <= 11 Then
        Set rPlage1 = Range("A" & Target.Row & ":D" & Target.Row)
        Set rPlage2 = Range("H" & Target.Row & ":K" & Target.Row)

        ' Si les cellules de A à D et de H à K sont vides, alors effacer les cellules de E à G
        If Application.WorksheetFunction.CountBlank(rPlage1) = 4 And _
            Application.WorksheetFunction.CountBlank(rPlage2) = 4 Then

            Range("E" & Target.Row & ":G" & Target.Row).ClearContents
        End If
    End If
End Sub

Si cela ne convient pas, il nous faudrait un exemple dans un fichier.

Merci

Bonjour a tous, forum

Bonjour Readi,

Merci pour ta réponse et pour le petit code ca fonctionne, SAUF que j'ai du mal poser ma question.

Je souhaite pouvoir remplir les colonnes E-F-G mais une fois que ces trois colonnes sont remplies alors.

" il ne faut pas que je puisse ecrire dans A-B-C-D et H-I-J-K "

j'espère avoir été plus clair, je garde quand ton code car il marche bien, ca me servira

Je te souhaite une très agréable journée

Merci a plus tard Raymond

re,

Voici une autre version :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rPlage As Range

    ' Si saisie uniquement dans les colonnes de A à K
    If Target.Column >= 1 And Target.Column <= 11 Then
        Application.EnableEvents = False

        Set rPlage = Range("E" & Target.Row & ":G" & Target.Row)

        ' Si les cellules de E à G sont remplies alors plus de saisie possible dans les colonnes de A à D et de H à K
        If Application.WorksheetFunction.CountA(rPlage) = 3 Then
            Select Case Target.Column
                Case 1 To 4, 8 To 11
                    Application.Undo
            End Select
        End If

        Application.EnableEvents = True
    End If
End Sub

Re Readi, forum

Je viens d'essayer ton dernier code ca marche parfaitement bien et correspond a mon besoin, je vais l'intégrer a mon programme.

Me reste plus qu'a te remercier avec beaucoup de merci

Voila te dit a plus tard sans doute et une excellente journée a toi et vu l'heure bon app

Salut Raymond