erreur 424

flo2002

XLDnaute Impliqué

• 4 Août 2006

• #2

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...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Août 2006

• #3

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

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 4 Août 2006

• #4

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...

 

Vote positif 0 Vote négatif

R

rudy

XLDnaute Occasionnel

• 4 Août 2006

• #5

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+

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 4 Août 2006

• #6

Re : erreur 424

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

 

Vote positif 0 Vote négatif

R

rudy

XLDnaute Occasionnel

• 4 Août 2006

• #7

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+

 

Vote positif 0 Vote négatif

R

rudy

XLDnaute Occasionnel

• 4 Août 2006

• #8

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 4 Août 2006

• #9

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

@+

 

Vote positif 0 Vote négatif

R

rudy

XLDnaute Occasionnel

• 4 Août 2006

• #10

Re : erreur 424

ok merci sa tourne à present
A+

 

Vote positif 0 Vote négatif