OVH Cloud OVH Cloud

Cells

3 réponses
Avatar
Thierry
Bonjour à tous

je voudrais concatener la cellule active avec le contenu de la cellule A2,
pour cela j'utilise la macro suivante

ActiveCell.Value = ActiveCell.Value & Cells.Value(2, 1)

cela fonctionne mais il faut au moins 2 s pour que le résultat s'affiche, y
a t'il un moyen plus rapide pour résoudre mon probleme ??

Merci pour les réponses

3 réponses

Avatar
michdenis
Bonjour Thierry,

Essaie ceci :

Application.EnableEvents = False
ActiveCell.Value = ActiveCell.Value & Cells.Value(2, 1)
Application.EnableEvents = True



Salutations!



"Thierry" a écrit dans le message de news:3f66cb17$0$240$
Bonjour à tous

je voudrais concatener la cellule active avec le contenu de la cellule A2,
pour cela j'utilise la macro suivante

ActiveCell.Value = ActiveCell.Value & Cells.Value(2, 1)

cela fonctionne mais il faut au moins 2 s pour que le résultat s'affiche, y
a t'il un moyen plus rapide pour résoudre mon probleme ??

Merci pour les réponses
Avatar
Guy
Bonsoir à tous

Je pensais aussi que ca ne pouvait fonctionner
et pourtant !
En mettant "1" en A2 et exécutant la macro ( sans OnError...) avec "1 " en
A1
ca prend 5 minutes, windows augmente la mémoire virutelle au passage
mais ca fonctionne
l'intelligence artificielle ?

guy

"Frédéric Sigonneau" a écrit dans le message
news:
Bonsoir,

Cela ne devrait pas fonctionner ! (je suppose qu'il y a un On Error Resume
Next

quelque part dans le code avant cette instruction). Essaye plutôt :

ActiveCell.Value = ActiveCell.Value & Cells(2, 1).Value

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à tous

je voudrais concatener la cellule active avec le contenu de la cellule
A2,


pour cela j'utilise la macro suivante

ActiveCell.Value = ActiveCell.Value & Cells.Value(2, 1)

cela fonctionne mais il faut au moins 2 s pour que le résultat
s'affiche, y


a t'il un moyen plus rapide pour résoudre mon probleme ??

Merci pour les réponses





Avatar
Frédéric Sigonneau
Bonsoir,

Je pensais aussi que ca ne pouvait fonctionner
et pourtant !
En mettant "1" en A2 et exécutant la macro ( sans OnError...) avec "1 " en
A1
ca prend 5 minutes, windows augmente la mémoire virutelle au passage
mais ca fonctionne
l'intelligence artificielle ?


Question de version ? Avec Excel 2002 je ne peux même pas exécuter le code, ça
ne compile pas, avec une erreur "Nombre d'arguments incorrect ou affectation de
propriété incorrecte" sur le .Value de cette partie de l'instruction :

Cells.Value(2, 1)

Ça m'étonne beaucoup qu'Excel 2000 ou 97 soient plus 'tolérants' sur cette
bizarrerie syntaxique, mais comme en informatique, c'est une bonne idée de ne
s'étonner de rien...
:-)

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

guy

"Frédéric Sigonneau" a écrit dans le message
news:
Bonsoir,

Cela ne devrait pas fonctionner ! (je suppose qu'il y a un On Error Resume
Next

quelque part dans le code avant cette instruction). Essaye plutôt :

ActiveCell.Value = ActiveCell.Value & Cells(2, 1).Value

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !


Bonjour à tous

je voudrais concatener la cellule active avec le contenu de la cellule
A2,


pour cela j'utilise la macro suivante

ActiveCell.Value = ActiveCell.Value & Cells.Value(2, 1)

cela fonctionne mais il faut au moins 2 s pour que le résultat
s'affiche, y


a t'il un moyen plus rapide pour résoudre mon probleme ??

Merci pour les réponses