Prioblème macro Application.Goto Reference:

[maxime69]

Bonjour,
je ne comprend pas pourquoi mais impossible d'exécuter cette macro.
Pouvez vous m'aider SVP.
Sub valeur_ass()

Set W = Worksheets("coeur")

nom = ActiveSheet.Name

Application.Goto Reference:="coeur"

Range("A1").Select

Application.Goto Reference:="coeurold"

Range("A1").Select

Sheets("données").Select
lig0 = 2
While Cells(lig0, 1) <> ""
nass = lig0 - 1
lig0 = lig0 + 1
Wend


For ass = 1 To nass
posass = Sheets("données").Cells(ass + 1, 1).Value
valeur = Sheets("données").Cells(ass + 1, 2).Value
ancpos = Sheets("données").Cells(ass + 1, 3).Value

indlig_posass = Val(Right(posass, 2))
indcol_posass = Left(posass, 1)

lig0 = indlig_posass + 4
'conversion en ascii : asc
col0 = Asc(UCase(indcol_posass))

If col0 < 73 Then
col00 = (82 - col0 - 2)
ElseIf col0 < 79 Then
col00 = (82 - col0 - 1)
ElseIf col0 < 81 Then
col00 = (82 - col0)
Else
col00 = (82 - col0 + 1)
End If
col00 = col00 + 4

'Sheets(nom).Cells(lig0, col00).Value = valeur

Sheets("coeur").Cells(lig0, col00).Value = valeur
Sheets("coeur-old").Cells(lig0, col00).Value = ancpos
With Sheets("coeur").Cells(lig0, col00).Font
.Name = "Arial"
.Size = 8
' .ColorIndex = 1
End With
With Sheets("coeur-old").Cells(lig0, col00).Font
.Name = "Arial"
.Size = 8
' .ColorIndex = 1
End With

Next ass
Sheets("coeur").Select
End Sub

 

[john]

Re : Prioblème macro Application.Goto Reference:

Bonjour,

As-tu créer les références "coeur" et coeurold" sur ta feuille ?
Si pas le cas, normal que ça plante.

Sinon peux-tu envoyer ton fichier car sans exmple pas évident de faire fonctionner et de comprendre d'où peut venir le problème.

En tout cas de mon coté, j'ai créé les 2 références et ça plante pas à ce niveau là !!!

John

 

[maxime69]

Re : Prioblème macro Application.Goto Reference:

Comment as tu fait pour crée les références car je n'y arrive pas.

 

[john]

Re : Prioblème macro Application.Goto Reference:

Tu sélectionnes les cellules que tu veux référencer et ensuite tu fais un clic droit ==> nommer une plage et là tu donnes le nom de la référence.

 

[Pierrot93]

Re : Prioblème macro Application.Goto Reference:

Bonjour,

sous 2003 pour définir une plage => barre de menu => insertion => noms => définir..; ou après selection des cellules à gauche de la barre de formule dans la zone "nom", tu rentres le nom voulu...

bon après midi
@+

 

[maxime69]

Re : Prioblème macro Application.Goto Reference:

Je n'ai pas cette option sur office 2003

 

[Pierrot93]

Re : Prioblème macro Application.Goto Reference:

Re,

regarde le post #5

 

[maxime69]

Re : Prioblème macro Application.Goto Reference:

Merci de votre aide