Salut à tous
Je viens de créer 2 applications avec macros sous office 2007 donc en .xlsm
Je les enregistre en tant que classeur Excel 97-2003 (*.xls)
La 1ère appli fonctionne très bien sous office 2003 sans aucun pb
La 2ème me renvoie le message suivant :
"Impossible d’exécuter la macro '#REF!'; il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées."
Voici le code de cette macro :
Sub finDistrib()
'
' finDistrib Macro
'
Application.ScreenUpdating = False
Application.Goto Reference:="lesNoms"
'Modifie le texte du titre
Range("lesNoms") = "Tous les résultats pour"
'Vide tout le tableau Résultats
Application.Goto Reference:="pourVider"
Application.CutCopyMode = False
Selection.ClearContents
'Se positionne sur la feuille Résultats
Application.Goto Reference:="fiche"
'Boucle pour passer tous les inscrits
For I = 1 To 80
'Se positionne sur sur le N° famille de la feuille liste Bébés
Sheets("Liste bébés").Select
ActiveCell.Offset(1, 0).Activate
'Condition qui vérifie que nous ne sommes pas en fin de liste
If Selection < 1 Then Exit For
'Se positionne dans la colonne A des Servis
ActiveCell.Offset(0, -1).Activate
'Vérifie si la famille a été servie
If Selection = "T" Then
'Si servie le prg continue
Sheets("Liste bébés").Select
'Se positionne sur le N° de fiche et le copie
ActiveCell.Offset(0, 1).Activate
Selection.Copy
'Se positionne sur num dans passage colle le N° de fiche pour mettre à jour le tableau
Application.Goto Reference:="num"
ActiveSheet.Paste
'On colle ce N° dans Résultats en gros et bleu
Application.Goto Reference:="bebe" & I
ActiveCell.Offset(1, -1).Activate
ActiveSheet.Paste
'Le N° de distrib est affecté à la variable a
a = Range("distrib").Value
'Dans passage, On sélectionne la zone à recopier (distribn)dans résultats
Application.Goto Reference:=a
'Annule la précédente sélection à copier
Application.CutCopyMode = False
'Copie la sélection actuelle
Selection.Copy
'Colle dans résultats d'une manière incrémentée par la boucle
Application.Goto Reference:="bebe" & I
'Collage spécial valeurs
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Se positionne sur la zone distrib du bébé en cours de traitement et copie
Application.Goto Reference:="a" & a
Application.CutCopyMode = False
Selection.Copy
'Collage spécial valeurs dans résultats d'une manière incrémentée par la boucle
Application.Goto Reference:="abebe" & I
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Se positionne dans résultats pour le prochain passage
ActiveCell.Offset(1, 0).Activate
'si détection de fin de liste
Else
'Se positionne pour le prochain passage
ActiveCell.Offset(0, 1).Activate
' Fin du si détection fin de liste
End If
' Fin de la boucle For
Next
'Neutralise la sélection de copie
Application.CutCopyMode = False
'Remet en service le défilement écran
Application.ScreenUpdating = True
'Se positionne sur la feuille résultats en début
Application.Goto Reference:="ici"
Range("A3").Select
'
End Sub
Je pense que j'utilise un code que office 2003 ne reconnait pas. Mais comme je n'y connais pas grand chose, je compte sur vous.
A l'avance merci
Je viens de créer 2 applications avec macros sous office 2007 donc en .xlsm
Je les enregistre en tant que classeur Excel 97-2003 (*.xls)
La 1ère appli fonctionne très bien sous office 2003 sans aucun pb
La 2ème me renvoie le message suivant :
"Impossible d’exécuter la macro '#REF!'; il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivées."
Voici le code de cette macro :
Sub finDistrib()
'
' finDistrib Macro
'
Application.ScreenUpdating = False
Application.Goto Reference:="lesNoms"
'Modifie le texte du titre
Range("lesNoms") = "Tous les résultats pour"
'Vide tout le tableau Résultats
Application.Goto Reference:="pourVider"
Application.CutCopyMode = False
Selection.ClearContents
'Se positionne sur la feuille Résultats
Application.Goto Reference:="fiche"
'Boucle pour passer tous les inscrits
For I = 1 To 80
'Se positionne sur sur le N° famille de la feuille liste Bébés
Sheets("Liste bébés").Select
ActiveCell.Offset(1, 0).Activate
'Condition qui vérifie que nous ne sommes pas en fin de liste
If Selection < 1 Then Exit For
'Se positionne dans la colonne A des Servis
ActiveCell.Offset(0, -1).Activate
'Vérifie si la famille a été servie
If Selection = "T" Then
'Si servie le prg continue
Sheets("Liste bébés").Select
'Se positionne sur le N° de fiche et le copie
ActiveCell.Offset(0, 1).Activate
Selection.Copy
'Se positionne sur num dans passage colle le N° de fiche pour mettre à jour le tableau
Application.Goto Reference:="num"
ActiveSheet.Paste
'On colle ce N° dans Résultats en gros et bleu
Application.Goto Reference:="bebe" & I
ActiveCell.Offset(1, -1).Activate
ActiveSheet.Paste
'Le N° de distrib est affecté à la variable a
a = Range("distrib").Value
'Dans passage, On sélectionne la zone à recopier (distribn)dans résultats
Application.Goto Reference:=a
'Annule la précédente sélection à copier
Application.CutCopyMode = False
'Copie la sélection actuelle
Selection.Copy
'Colle dans résultats d'une manière incrémentée par la boucle
Application.Goto Reference:="bebe" & I
'Collage spécial valeurs
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Se positionne sur la zone distrib du bébé en cours de traitement et copie
Application.Goto Reference:="a" & a
Application.CutCopyMode = False
Selection.Copy
'Collage spécial valeurs dans résultats d'une manière incrémentée par la boucle
Application.Goto Reference:="abebe" & I
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Se positionne dans résultats pour le prochain passage
ActiveCell.Offset(1, 0).Activate
'si détection de fin de liste
Else
'Se positionne pour le prochain passage
ActiveCell.Offset(0, 1).Activate
' Fin du si détection fin de liste
End If
' Fin de la boucle For
Next
'Neutralise la sélection de copie
Application.CutCopyMode = False
'Remet en service le défilement écran
Application.ScreenUpdating = True
'Se positionne sur la feuille résultats en début
Application.Goto Reference:="ici"
Range("A3").Select
'
End Sub
Je pense que j'utilise un code que office 2003 ne reconnait pas. Mais comme je n'y connais pas grand chose, je compte sur vous.
A l'avance merci
