Bonsoir

Dans une macro de windowsXP,je sélectionne une cellule cells(5,7) par la formule cells(5,7).select J'y inscris une valeur par ex cells(5,7).value=3

Si je regarde le résultat de l'opération je constate que la cellule (cells(5,7) est vierge mais la valeur donnée apparait dans la cellule (5,6)?

J'ai remplacé cells(5,7) par Range("G5") et j'obtiens à nouveau la même erreur d'adresse.

J'ai la même erreur avec d'autres cellules qui n'obéissent pas à l'adresse demandée.

Y aurait-il une astuce ou une instruction qui forcerait l'adressage à l'endroit voulu?

Merci de me renseigner

Rogerone

Dans une macro de windowsXP, je sélectionne une cellule cells(5,7) par la formule cells(5,7)..... etc etc

et tu parle de XP ou d' un tableur ????

bye, à +

Bonsoir,

Clique sur le triangle jaune au dessus de ton message et demande aux modérateur de transférer ton post sur le forum Bureautique.

Tu auras plus de chance de trouver une réponse à ton problème.

Bonjour,

Une explication/

J'utilise une macro pour transférer les données d'un fichier contenant les caractéristiques de joueurs

;La macro lit ce fichier et transfère ces données sur une feuille qui est le schéma de la facture .

Lorsque toutes les données ont été transcrites sur ce schéma ,je l'imprime sur le document facture.

C'est dans ce transfert de données qu'apparaissent les erreurs d'adressage que je résume dans le message original.

Certaines données apparaissent à la bonne place mais d'autres en des endroits faux mais toujours à la même place si je continue avec un autre joueur.

J'espère qur ces détails vous aideront à résoudre le problème.

VOICI un extrait de la macro

Windows("participants").Activate

Sheets("inscrits").Select
Cells(i, 4).Select
'Nom de la série n°1
Application.CutCopyMode = False
Selection.Copy

Windows("schemafichestbis").Activate
Range("g5").Select
With Selection
.HorizontalAlignment = xlCenter
End With
Windows("participants").Activate
Sheets("inscrits").Select
Cells(i, 5).Select
'Nom d la série 2
Application.CutCopyMode = False

Selection.Copy
Windows("schemafichestbis").Activate
Range("G7").Select
With Selection
.HorizontalAlignment = xlCenter
End With

Range("g5").Select
'si la cellule est différente de '' alors
If Range("g5").Value <> "" Then
Range("H5").Select
Range("H5").Value = 3
tot1 = tot1 + Range("H5").Value
ser1 = ser1 + 1 'compteur des inscriptions n°1
End If

C'est au niveau des Range("G5") et range(("G7") et range("H5") que cela coince

MERCI pour votre aide