Compatibilite ??? entre 2007 2002

gilbert_RGI

XLDnaute Barbatruc

• 13 Janvier 2014

• #2

Re : Compatibilite ??? entre 2007 2002

bonjour

avec un end sub fonctionne très bien sur 2007 aussi

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 13 Janvier 2014

• #3

Re : Compatibilite ??? entre 2007 2002

Bonjour gilbert_RGI
Merci pour cette réponse rapide
Oui bien sur end sub, .....Excusez moi ....dans mon post j'ai juste noté le début de macro, mais j'ai bien end sub à la fin,
Le problème n'est donc pas là,
Au plaisir de vous lire
E et F

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 13 Janvier 2014

• #4

Re : Compatibilite ??? entre 2007 2002

non car cette macro fonctionne

vous avez bien activé la sécurité macro dans les options excel ?

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 13 Janvier 2014

• #5

Re : Compatibilite ??? entre 2007 2002

Bonjour
Si le classeur excel 2007 est enregistré en xlsm il n'y a aucune raison que ça ne fonctionne pas. LA notion de "fait planter excel" est bien vague : que se passe-t-il exactement ? Comment testes tu la macro ?

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 13 Janvier 2014

• #6

Re : Compatibilite ??? entre 2007 2002

re
bonjour misange


: je viens donc de l enregistrer sous excel prenant en charge les macros(xlsm) avant il etait sous 97 2003 xls
et j ai touijours le beugue " la methode value de l'objet range a échouée"
et l ecran deviens blanc clair
j ai egalement testé sur un autre ordi , des fois que ca vienne de l ordi ...........
idem meme resultat ,de plus pour sortir je suis oblige de faire ctrl alt supp
je vais essayer d isoler cette macro dans un modele a part (nouvelle feuille dans nouveau classeur ) et tester a nouveau

MERCI pour tout
a demain ,je dois filer
bonne soirée
E et F

 

Vote positif 0 Vote négatif

Misange

XLDnaute Barbatruc

• 13 Janvier 2014

• #7

Re : Compatibilite ??? entre 2007 2002

Envoie nous ton classeur e"xpurgé de tout ce qui est inutile pour reproduire le bug et anonymisé, il y a certainement une erreur quelque part...

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 13 Janvier 2014

• #8

Re : Compatibilite ??? entre 2007 2002

re

je pense avoir compris le problème avec F8


Private Sub Worksheet_Change(ByVal Target As Range)
'donc quand ca change sur la feuille

If Range("h2").Value = 1 Then
Range("a2").Value = "TOTO"

'là la cellule "a2" change de nouveau et la procédure est relancée !!!
'et elle tourne en boucle sans pouvoir en sortir !sans jamais atteindre le End if
End If
End Sub

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 13 Janvier 2014

• #9

Re : Compatibilite ??? entre 2007 2002

alors un Ctrl / pause aurait suffit pour interrompre la boucle

 

Pièces jointes

• EF_test_v1.xlsm

  21.8 KB · Affichages: 45

Dernière édition: 13 Janvier 2014

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 13 Janvier 2014

• #10

Re : Compatibilite ??? entre 2007 2002

merci Gilbert_RGI
c est cette ligne qui me manquait
If Not Intersect(Target, Range("h2")) Is Nothing Then
tout rentre dans l ordre maintenant
merci pour tout !!!!
EetF

 

Pièces jointes

• merci.xlsm

  17.9 KB · Affichages: 48
• merci.xlsm

  17.9 KB · Affichages: 55
• merci.xlsm

  17.9 KB · Affichages: 53

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 13 Janvier 2014

• #11

Re : Compatibilite ??? entre 2007 2002

ou, une autre méthode

Private Sub Worksheet_Change(ByVal Target As Range)
'""""""""""""""""""""""""""""""""""""""
If Not Intersect(Target, Range("h2")) Is Nothing Then

'""""""""""""""""""""""""""""""""""""
On Error Resume Next

Select Case Range("h2")
Case 1
Range("a2").Value = "TOTO"
Case 2
Range("a2").Value = "TATA"
Case 3
Range("a2").Value = "TUTU"
Case 4
Range("a2").Value = "TITI"
Case Else
Range("a2").Value = ""
End Select
End If
End Sub

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 13 Janvier 2014

• #12

Re : Compatibilite ??? entre 2007 2002

salut

problème classique : évènement rappelé sans fin !
Une solution en évitant cela

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Application.EnableEvents = 0
  If [H2] = 1 Then [A2] = "TOTO" 'le changement en [A2] ne relance plus l'évènement
  Application.EnableEvents = 1
End Sub

ou simplement avec une double condition

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$H$2" And [H2] = 1 Then [A2] = "TOTO"
End Sub

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 14 Janvier 2014

• #13

Re : Compatibilite ??? entre 2007 2002

merci SI... ta première proposition fonctionne a merveille dans mon programme
je te remercie beaucoup pour tout
bonne journée
EetF

 

Vote positif 0 Vote négatif