erreur 424

[rudy]

bonjour a tous
quel serai l adaptation du code ci dessous pour le mêttre sur un boutons ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
If Not Intersect(Target, Range("D8:BB50")) Is Nothing Then
With Sheets("Feuil2")
For j = 7 To .Range("IV5").End(xlToLeft).Column
If .Cells(5, j).Value = "1" And .Cells(5, j + 1).Value <> "1" And .Cells(5, j + 2).Value = "1" Then
MsgBox "Il y a une rupture dans la chaine : " & .Cells(5, 2).Value
Exit Sub
End If
Next j
End With
End If
End Sub

quand j éssaye il me donnde une erreur 424 ?

merci A+

 

[flo2002]

Re : erreur 424

bonjour,

Sub tasub()

Dim i&
If Not Intersect(Target, Range("D8:BB50")) Is Nothing Then
With Sheets("Feuil2")
For j = 7 To .Range("IV5").End(xlToLeft).Column
If .Cells(5, j).Value = "1" And .Cells(5, j + 1).Value <> "1" And .Cells(5, j + 2).Value = "1" Then
MsgBox "Il y a une rupture dans la chaine : " & .Cells(5, 2).Value
Exit Sub
End If
Next j
End With
End If
End Sub

mais j'ai essayer et toujours la 424 donc le probleme vient peut etre de ta macro....
sinon c'est encore moi qui me plante...

 

[Pierrot93]

Re : erreur 424

Bonjour Rudy, re Florent

remplace Target par selection, ca devrait mieux marché, a tester pour voir si ca marche comme tu le veux

@+

bonne soirée

 

[flo2002]

Re : erreur 424

Sub tasub()

Dim i&
If Not Intersect(selection, Range("D8:BB50")) Is Nothing Then
With Sheets("Feuil3")
For j = 7 To .Range("IV5").End(xlToLeft).Column
If .Cells(5, j).Value = "1" And .Cells(5, j + 1).Value <> "1" And .Cells(5, j + 2).Value = "1" Then
MsgBox "Il y a une rupture dans la chaine : " & .Cells(5, 2).Value
Exit Sub
End If
Next j
End With
End If
End Sub

au moins ca bug pas tu as raison, de la a dire que la macro tourne...

 

[rudy]

Re : erreur 424

merci flo2002 et pierret93 d avoir jeter un coup d oeif a tous sa mais quand je clic sur le boutons rien de la procédure ne se lance ???
mais je ne d éspaire pas il y a bien une solution a se planning de production ??
A+

 

[flo2002]

Re : erreur 424

Un petit bout de fichier peut etre. Histoire que se soit plus clair encore...

 

[rudy]

Re : erreur 424

re-bonjour vous trouverz ci-joint le fichier a l' état d origine ( qui fonctionne je vous l assure ) se que je cherche a faire c est de coller le code sur un boutons

http://cjoint.com/?ierHjHqVOo
merci encore A+

 

[rudy]

Re : erreur 424

un peu plus d explication devrai être utile (?)
si on tape une serie de " 1 " dans le tableau de la feuil1 en suivan colonne par colone rien ne se passe mais si on saut une ( et une seul ) colonne alors la le message apparait
ésperant vous aider ( et moi aussi )
quoi qu il en soit merci.
A+

 

[Pierrot93]

Re : erreur 424

Re Rudy

il faut que tu mettes le code dans la feuille1 dans l'evenement click du bouton

Private Sub CommandButton1_Click()

end sub

il faut remplacre target par selection comme je disais précédemment.

Par contre si tu utilises un bouton, je ne vois pas pourquoi tu utiliserais la methode INTERSECT, sauf erreur de ma part dans ce cas elle est inutile mais bon !!

En plus je n arrive pas a voir vraiment ou tu veux en venir !!

Si tu pouvais donner plus d explication sur le résultat final je pourrais peut être t aider un peu plus

bon courage et bonne soirée

@+

 

[rudy]

Re : erreur 424

ok merci sa tourne à present
A+