Instruction select ne fonctionne plus

[Résolu]
Signaler
Messages postés
3
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
26 novembre 2009
-
Messages postés
3
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
26 novembre 2009
-
javascript:void(0);
javascript:void(0);bonjour, soucis depuis ce matin:
tit bout de code vba excel:

Range("TITREDEM").Select
Sheets("EDITION").Select
Range("RENSEIGNDEM").ClearContents
Range("ZONEBT4").ClearContents
MsgBox "voulez-vous saisir une autre demande?", vbYesNo
Dim retour02 As Integer
If retour02 = vbYes Then
Sheets("FORM").Select

l'instruction select ne fonctionne plus après que j'ai utilisée la version supérieur d'excel (2007) en mode compatibilité ni pour les range
ni pour les sheets.

Quelqu'un peut-il m'apporter un élément de réponse à cette énigme? (aucune référence dans le menu outil des macro n'a été ajoutée ou enlevée)

merci et à bientôt

5 réponses

Messages postés
303
Date d'inscription
mercredi 12 janvier 2005
Statut
Membre
Dernière intervention
3 octobre 2013
1
Bonjour
Je suis d'accord avec jack.
Ecrit : retval = msgbox ...
Il searait bon que tes déclarations soient en tête (dim)

Bonne journée
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
78
Salut
Bah simplement parce que "retour02" n'a aucun lien avec la MsgBox.
Le If n'a donc aucune chance de fonctionner (s'il était complet : manque le EndIf)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
3
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
26 novembre 2009

salut, le code est incomplet et je n'ai pas eu de problème avec ce code qui n'a pas été modifié jusqu'à ce que je l'ouvre avec excel 2007.

autre bout de code
MsgBox "voulez-vous saisir une autre demande?", vbYesNo
Dim retour02 As Integer
If retour02 = vbYes Then
Sheets("FORM").Select
If retour02 = vbNo Then
MsgBox "Fermeture du classeur sans sauvegarder:"
ActiveWorkbook.Close False
End If
end if
End With
A+
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
78
Que veux-tu que je te dise ?
Tu fais un MsgBox mais tu ne récupères pas la réponse, je vois mal comment tu pourrais faire une action ensuite ...

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Messages postés
3
Date d'inscription
mercredi 12 février 2003
Statut
Membre
Dernière intervention
26 novembre 2009

MERCI POUR VOTRE COLLABORATION j'ai fait le tour de toutes mes lignes de code et corrigé toutes mes bourdes! ça fonctionne de nouveau avec des bases plus saines.
à bientôt JM