Coller avec liaison une cellule dans une autre.
Philou73CH
-
Philou73CH -
Philou73CH -
Bonjour / Bonsoir à vous.
Pouvez vous m'expliquer ce bug intitulé : Erreur d'exécution ' 1004, Microsoft Excel ne peut pas coller les données.
J'ai une macro, qui me sert à créer des feuilles Excel pour chaque personne nommée dans un tableau. Dans ce tableau chaque personne à une cellule qui est le total d'heure qu'il effectue. Ce total d'heure va évoluer tout au long de l'année. C'est pourquoi je voulais utiliser le collage avec liaison. Car cette cellule "Tableau X " est l'image de " feuille X = A1 + A2+A3....."
Pour ce faire j'ai utilisé le programmation VBA suivante :
'Report du total d'heures
Sheets(FixeFeuil).Activate
Range("E10").Select
Selection.Copy
Sheets("Récap_Pers").Select
Range("E14").Select
ActiveSheet.Paste Link:=True
Cela fontionne parfaitement quand j'utilise le pas-à-pas avec F8. Par contre, quand je lance la macro et qu'elle le fait un continue, il y a bug et le message d'erreur.
Si je remplace : ActiveSheet.Paste Link: = True par
Range("E14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Je n'ai aucun message d'erreur. ¨
Par contre je n'ai plus ma fonction de laison. Donc je ne suis pas bon .....
Pouvez.vous m'aider.
D'avance je vous en remercie.
Pouvez vous m'expliquer ce bug intitulé : Erreur d'exécution ' 1004, Microsoft Excel ne peut pas coller les données.
J'ai une macro, qui me sert à créer des feuilles Excel pour chaque personne nommée dans un tableau. Dans ce tableau chaque personne à une cellule qui est le total d'heure qu'il effectue. Ce total d'heure va évoluer tout au long de l'année. C'est pourquoi je voulais utiliser le collage avec liaison. Car cette cellule "Tableau X " est l'image de " feuille X = A1 + A2+A3....."
Pour ce faire j'ai utilisé le programmation VBA suivante :
'Report du total d'heures
Sheets(FixeFeuil).Activate
Range("E10").Select
Selection.Copy
Sheets("Récap_Pers").Select
Range("E14").Select
ActiveSheet.Paste Link:=True
Cela fontionne parfaitement quand j'utilise le pas-à-pas avec F8. Par contre, quand je lance la macro et qu'elle le fait un continue, il y a bug et le message d'erreur.
Si je remplace : ActiveSheet.Paste Link: = True par
Range("E14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Je n'ai aucun message d'erreur. ¨
Par contre je n'ai plus ma fonction de laison. Donc je ne suis pas bon .....
Pouvez.vous m'aider.
D'avance je vous en remercie.
A voir également:
- Coller avec liaison une cellule dans une autre.
- Aller à la ligne dans une cellule excel - Guide
- Bloquer une cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Bureautique
Je m'excuse de ma lenteur, mais tu vois c'est mon pays....
Je viens de tester ta proposition. Hélas il se passe un truc,
J'ai la fenêtre pour les répertoires qui s'ouvre et le texte en haut à droit est le suivant :
Mettre à jour la valeur : FixeFeuil
Merci pour l'idée, mais à voir ma question est toujours de mise.... :-((((
Je te remercie sincérement du temps que tu as pris pour me lire et me répondre.
MEilleures salutations.