Rejet du else

[andrekn13]

Bonjour
j'ai déclaré plusieurs integer , avec msgBox pour comparaison :
i2 = i_dernière_facture - i_Nouvelle_facture
MsgBox i2

If i_dernière_facture = i_Nouvelle_facture Then
MsgBox "ERREUR , VOTRE PRECEDENTE FACTURE N' A PAS ETE VALIDEE" & vbCr & " VOUS DEVEZ D'ABORD VALIDEZ CETTE FACTURE OU L' ANNULER " & vbCr & _
" OU VEUILLEZ VERIFIER VOTRE COMPTEUR FACTURE "
GoTo fin 'exit sub
'comme on transfert,

Else: ActiveSheet.Shapes.Range(Array("plaque tranfert devis")).Select
Selection.Delete
Sheets("Synthèse").Select
ActiveSheet.Shapes.Range(Array("plaque devis transféré !")).Select
Selection.Copy
Sheets(6).Select
Range("J21").Select
ActiveSheet.Select
ActiveSheet.Shapes.Range(Array("plaque tranfert devis")).Select
Selection.OnAction = ""
ActiveSheet.Paste
Range("J39").Select
End If

Décidément je vois pourquoi rien ne fonctionne, mes msgbox me renvoie bien les bonnes valeurs et pourtant les résultats sont bien différents, et me renvoie la réponse comme si la 1ère condition était remplie !
Pourtant ça me parait si simple et basique 😕
Si quelqu'un peut m'éclairer, un grand merci d' avance

 

[Paritec]

Re : Rejet du else

bonjour andrekn13 le forum
bah sans fichier impossible de te dire ou tu as fait ton erreur
a+
papou😱

 

[andrekn13]

Re : Rejet du else

Bonjour
Je suis très honoré de m'avoir répondu, comme ce fichier assez complexe, je pensais que c'était juste ce code qui allait pas.
Et pour me conformer à la charte, fallait tout "nettoyer".
Bon, je m'y met.
merci

 

[max.lander]

Re : Rejet du else

Salut,

Tu es sûr d'être sur la feuille qui contient ce "shape" au moment où tu exécutes cette ligne ?

Else:ActiveSheet.Shapes.Range(Array("plaque tranfert devis")).Select