j'y croyais aussi. Teste le bac 3
j'y croyais aussi. Teste le bac 3
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
et laisse quand meme ma place pour ma cote de boeuf
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 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
avec tout ca j'ai la dalle dans les talons moi, je vais me faire un sandwishes
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
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
T une bête.
encore merci pour tout
de rien
mes fichiers dans les contributions:
mail avec CDO en vba et mail avec CDO en vbs dans un HTA
survol des bouton dans userform
prendre un cliché d'un range
si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
et n'oublie pas de voter
@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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager