Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel cellule égale dans la formule

cellule égale dans la formule

16 réponses
Avatar
Greg
Bonjour,

Soit une cellule A4 qui a comme formule:

=ALEA.ENTRE.BORNES(1;9)

Je voudrais que la cellule B5 copie cette formule automatiquement en A4,
mais pas le résultat. Ainsi, A4 pourrait avoir comme valeur 6, alors que B5
aurait comme valeur 2. Petite difficulté supplémentaire : il se peut que A4
affiche un nombre qui n'est pas appelé par une formule ; dans ce cas, B5
devra prendre le contenu.

En résumé, comment une cellule peut copier le contenu d'une autre, formule
et/ou valeur?

Merci pour votre aide...

Greg
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
DanielCo
Voila :
http://cjoint.com/?0lCvM9QdV8v
Daniel


Bah je ne comprends pas... C'est ce que j'ai fait et rien ne se passe...

J'avoue que le classeur modifié me permettrait d'avancer.

Merci d'avance

Greg

"news.free.fr" a écrit dans le message de groupe de
discussion : 4cf2b9a8$0$25525$
Nan, tu le mets là où tu as collé le premier (à la place); tu fais un clic
droit sur l'onglet de Feuil2 et tu fais un clic sur "Visualiser le code".
Là, tu colles la macro dans la partie droite de la fenêtre VBE qui vient de
s'ouvrir au bon endroit.
PS. Si tu as besoin, je te renvoie ton classeur modifié.
Daniel


Avatar
Greg
Ca marche impec! Merci beaucoup Daniel!!!

J'avais fait apparemment la même chose mais... Peu importe, je l'ai collé
dans mon fichier d'origine et ça marche du feu de dieu!!!

à bientôt pour de nouvelles aventures...

Greg

"DanielCo" a écrit dans le message de groupe de
discussion : icuemb$ap2$
Voila :
http://cjoint.com/?0lCvM9QdV8v
Daniel


Bah je ne comprends pas... C'est ce que j'ai fait et rien ne se passe...

J'avoue que le classeur modifié me permettrait d'avancer.

Merci d'avance

Greg

"news.free.fr" a écrit dans le message de groupe
de discussion : 4cf2b9a8$0$25525$
Nan, tu le mets là où tu as collé le premier (à la place); tu fais un
clic droit sur l'onglet de Feuil2 et tu fais un clic sur "Visualiser le
code". Là, tu colles la macro dans la partie droite de la fenêtre VBE
qui vient de s'ouvrir au bon endroit.
PS. Si tu as besoin, je te renvoie ton classeur modifié.
Daniel








Avatar
Greg
J'ai été un peu emporté par mon euphorie tout à l'heure...

En fait, ca fonctionne très bien pour la colonne B. J'ai essayé de l'adapter
à mes 9 autres colonnes, sans résultat. J'ai tenté de
- recopier la macro en changeant la colonne
- De faire la même mais en changeant le nom de la macro
- De rajouter un bout de code dans la macro existante (intuitivement), ce
qui donnait :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
'Range("B5:B22,B27:B45") = Target.Formula
[B5:B22,B27:B45] = Target.Formula
End If
If Target.Address(1, 0) = "C4" Then
[C5:C22,C27:C45] = Target.Formula
End If
End Sub


Tout cela doit être très maladroit mais je ne vois pas...

Peux-tu me donner un dernier coup de pouce?

Merci d'avance

Greg





"Greg" a écrit dans le message de groupe de discussion :
4cf2c41d$0$18591$
Ca marche impec! Merci beaucoup Daniel!!!

J'avais fait apparemment la même chose mais... Peu importe, je l'ai collé
dans mon fichier d'origine et ça marche du feu de dieu!!!

à bientôt pour de nouvelles aventures...

Greg

"DanielCo" a écrit dans le message de groupe de
discussion : icuemb$ap2$
Voila :
http://cjoint.com/?0lCvM9QdV8v
Daniel


Bah je ne comprends pas... C'est ce que j'ai fait et rien ne se passe...

J'avoue que le classeur modifié me permettrait d'avancer.

Merci d'avance

Greg

"news.free.fr" a écrit dans le message de
groupe de discussion : 4cf2b9a8$0$25525$
Nan, tu le mets là où tu as collé le premier (à la place); tu fais un
clic droit sur l'onglet de Feuil2 et tu fais un clic sur "Visualiser le
code". Là, tu colles la macro dans la partie droite de la fenêtre VBE
qui vient de s'ouvrir au bon endroit.
PS. Si tu as besoin, je te renvoie ton classeur modifié.
Daniel








Avatar
Greg
Au cas où, voici mon fichier d'origine.

http://cjoint.com/?0lCwLQGZnjP

Je n'y comprends vraiment pas grand chose. Quand j'applique la formule à la
colonne C sur le fichier que tu m'as envoyé, il s'arrête à C27 et ne copie
rien dessous... De mon point de vue, c'est incompréhensible.

à bientôt

Greg


"Greg" a écrit dans le message de groupe de discussion :
4cf2c9b3$0$3338$
J'ai été un peu emporté par mon euphorie tout à l'heure...

En fait, ca fonctionne très bien pour la colonne B. J'ai essayé de
l'adapter à mes 9 autres colonnes, sans résultat. J'ai tenté de
- recopier la macro en changeant la colonne
- De faire la même mais en changeant le nom de la macro
- De rajouter un bout de code dans la macro existante (intuitivement), ce
qui donnait :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
'Range("B5:B22,B27:B45") = Target.Formula
[B5:B22,B27:B45] = Target.Formula
End If
If Target.Address(1, 0) = "C4" Then
[C5:C22,C27:C45] = Target.Formula
End If
End Sub


Tout cela doit être très maladroit mais je ne vois pas...

Peux-tu me donner un dernier coup de pouce?

Merci d'avance

Greg





"Greg" a écrit dans le message de groupe de discussion :
4cf2c41d$0$18591$
Ca marche impec! Merci beaucoup Daniel!!!

J'avais fait apparemment la même chose mais... Peu importe, je l'ai collé
dans mon fichier d'origine et ça marche du feu de dieu!!!

à bientôt pour de nouvelles aventures...

Greg

"DanielCo" a écrit dans le message de groupe de
discussion : icuemb$ap2$
Voila :
http://cjoint.com/?0lCvM9QdV8v
Daniel


Bah je ne comprends pas... C'est ce que j'ai fait et rien ne se
passe...

J'avoue que le classeur modifié me permettrait d'avancer.

Merci d'avance

Greg

"news.free.fr" a écrit dans le message de
groupe de discussion : 4cf2b9a8$0$25525$
Nan, tu le mets là où tu as collé le premier (à la place); tu fais un
clic droit sur l'onglet de Feuil2 et tu fais un clic sur "Visualiser
le code". Là, tu colles la macro dans la partie droite de la fenêtre
VBE qui vient de s'ouvrir au bon endroit.
PS. Si tu as besoin, je te renvoie ton classeur modifié.
Daniel








Avatar
DanielCo
Tu ne peux avoir qu'une seule macro "Sub Worksheet_Change" par feuille.
Utilise celle-ci et complète là pour les autres colonnes si nécessaires
:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
[B5:B22,B27:B45] = Target.Formula
ElseIf Target.Address(0, 0) = "C4" Then
[C5:C22,C27:C45] = Target.Formula
ElseIf Target.Address(0, 0) = "D4" Then
[D5:D22,D27:D45] = Target.Formula
End If
End Sub

Daniel


Au cas où, voici mon fichier d'origine.

http://cjoint.com/?0lCwLQGZnjP

Je n'y comprends vraiment pas grand chose. Quand j'applique la formule à la
colonne C sur le fichier que tu m'as envoyé, il s'arrête à C27 et ne copie
rien dessous... De mon point de vue, c'est incompréhensible.

à bientôt

Greg


"Greg" a écrit dans le message de groupe de discussion :
4cf2c9b3$0$3338$
J'ai été un peu emporté par mon euphorie tout à l'heure...

En fait, ca fonctionne très bien pour la colonne B. J'ai essayé de
l'adapter à mes 9 autres colonnes, sans résultat. J'ai tenté de
- recopier la macro en changeant la colonne
- De faire la même mais en changeant le nom de la macro
- De rajouter un bout de code dans la macro existante (intuitivement), ce
qui donnait :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
'Range("B5:B22,B27:B45") = Target.Formula
[B5:B22,B27:B45] = Target.Formula
End If
If Target.Address(1, 0) = "C4" Then
[C5:C22,C27:C45] = Target.Formula
End If
End Sub


Tout cela doit être très maladroit mais je ne vois pas...

Peux-tu me donner un dernier coup de pouce?

Merci d'avance

Greg





"Greg" a écrit dans le message de groupe de discussion :
4cf2c41d$0$18591$
Ca marche impec! Merci beaucoup Daniel!!!

J'avais fait apparemment la même chose mais... Peu importe, je l'ai collé
dans mon fichier d'origine et ça marche du feu de dieu!!!

à bientôt pour de nouvelles aventures...

Greg

"DanielCo" a écrit dans le message de groupe de
discussion : icuemb$ap2$
Voila :
http://cjoint.com/?0lCvM9QdV8v
Daniel


Bah je ne comprends pas... C'est ce que j'ai fait et rien ne se passe...

J'avoue que le classeur modifié me permettrait d'avancer.

Merci d'avance

Greg

"news.free.fr" a écrit dans le message de
groupe de discussion : 4cf2b9a8$0$25525$
Nan, tu le mets là où tu as collé le premier (à la place); tu fais un
clic droit sur l'onglet de Feuil2 et tu fais un clic sur "Visualiser le
code". Là, tu colles la macro dans la partie droite de la fenêtre VBE
qui vient de s'ouvrir au bon endroit.
PS. Si tu as besoin, je te renvoie ton classeur modifié.
Daniel








Avatar
Greg
Merci Daniel! Que du bonheur!

"DanielCo" a écrit dans le message de groupe de
discussion : icujpp$tb9$
Tu ne peux avoir qu'une seule macro "Sub Worksheet_Change" par feuille.
Utilise celle-ci et complète là pour les autres colonnes si nécessaires :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
[B5:B22,B27:B45] = Target.Formula
ElseIf Target.Address(0, 0) = "C4" Then
[C5:C22,C27:C45] = Target.Formula
ElseIf Target.Address(0, 0) = "D4" Then
[D5:D22,D27:D45] = Target.Formula
End If
End Sub

Daniel


Au cas où, voici mon fichier d'origine.

http://cjoint.com/?0lCwLQGZnjP

Je n'y comprends vraiment pas grand chose. Quand j'applique la formule à
la colonne C sur le fichier que tu m'as envoyé, il s'arrête à C27 et ne
copie rien dessous... De mon point de vue, c'est incompréhensible.

à bientôt

Greg


"Greg" a écrit dans le message de groupe de discussion :
4cf2c9b3$0$3338$
J'ai été un peu emporté par mon euphorie tout à l'heure...

En fait, ca fonctionne très bien pour la colonne B. J'ai essayé de
l'adapter à mes 9 autres colonnes, sans résultat. J'ai tenté de
- recopier la macro en changeant la colonne
- De faire la même mais en changeant le nom de la macro
- De rajouter un bout de code dans la macro existante (intuitivement),
ce qui donnait :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B4" Then
'Range("B5:B22,B27:B45") = Target.Formula
[B5:B22,B27:B45] = Target.Formula
End If
If Target.Address(1, 0) = "C4" Then
[C5:C22,C27:C45] = Target.Formula
End If
End Sub


Tout cela doit être très maladroit mais je ne vois pas...

Peux-tu me donner un dernier coup de pouce?

Merci d'avance

Greg





"Greg" a écrit dans le message de groupe de discussion :
4cf2c41d$0$18591$
Ca marche impec! Merci beaucoup Daniel!!!

J'avais fait apparemment la même chose mais... Peu importe, je l'ai
collé dans mon fichier d'origine et ça marche du feu de dieu!!!

à bientôt pour de nouvelles aventures...

Greg

"DanielCo" a écrit dans le message de groupe
de discussion : icuemb$ap2$
Voila :
http://cjoint.com/?0lCvM9QdV8v
Daniel


Bah je ne comprends pas... C'est ce que j'ai fait et rien ne se
passe...

J'avoue que le classeur modifié me permettrait d'avancer.

Merci d'avance

Greg

"news.free.fr" a écrit dans le message de
groupe de discussion : 4cf2b9a8$0$25525$
Nan, tu le mets là où tu as collé le premier (à la place); tu fais
un clic droit sur l'onglet de Feuil2 et tu fais un clic sur
"Visualiser le code". Là, tu colles la macro dans la partie droite
de la fenêtre VBE qui vient de s'ouvrir au bon endroit.
PS. Si tu as besoin, je te renvoie ton classeur modifié.
Daniel


















1 2