Discussion :

[graphikris]

j'y croyais aussi. Teste le bac 3

[patricktoulon]

oui je sais la par contre j'ai du mal a comprendre car dans le like 10 y est bien peut etre qu'encore la on est dans les lacunes de l'interprétation vba
je vais tester autre chose pour voir si j'ai raison

et oui j'avais raison c'est bien une erreur d'interprétation vba
le like 10 est interprété comme 1 ou 0

alors on ajoute un or pour le target column a 10 comme cela c'est explicite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        If Sh.Name = "Feuil1" And Target.Column Like "[1,4,7,]" Or Target.Column = 10 Then
        nb = WorksheetFunction.CountIf(Range(Cells(1, Target.Column), Cells(Rows.Count, Target.Column).End(xlUp)), Target.Value)
        If nb = 1 Then
         changement
        Else
            If ActiveCell <> "" Then ActiveCell.ClearContents: MsgBox "t'es miro ou quoi!!!"
             changement
        End If
     End If
End Sub

et laisse quand meme ma place pour ma cote de boeuf

et pour eviter de tout refaire
on le fait dans un select case
tu ajoutera ou enlèvera en cas de changement de colonne dans la ligne case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
        If Sh.Name = "Feuil1" Then 'And Target.Column Like "[1,4,7]" Or Target.Column = 10
        Select Case Target.Column
        Case 1, 4, 7, 10
        nb = WorksheetFunction.CountIf(Range(Cells(1, Target.Column), Cells(Rows.Count, Target.Column).End(xlUp)), Target.Value)
        If nb = 1 Then
         changement
        Else
            If ActiveCell <> "" Then ActiveCell.ClearContents: MsgBox "t'es miro ou quoi!!!"
             changement
        End If
     End Select
     End If
End Sub

avec tout ca j'ai la dalle dans les talons moi, je vais me faire un sandwishes

[graphikris]

T une bête.

encore merci pour tout

[patricktoulon]

de rien

[DeathZarakai]

@casefayere Je ne me vexe pas, je suis débutant j'ai encore à apprendre, ce n'était qu'une proposition basée sur mes connaissances.