Re, ce code est à placer dans la fenêtre de code de la feuille de calcul sur laquelle tu veux réaliser cette écriture itérée...
A+
CAP2
"Dynamo" a écrit dans le message de news:
Salut,
Mon problème :
En cliquant sur le bouton gauche de la souris, j'affecte la valeur Toto dans
la cellule active.
En laissant le bouton gauche appuyé puis-je faire une saisie répétitive sur
les cellules suivantes (colonne +1) jusqu'au relâchement du bouton?
Dur dur pour un novice comme moi.
CAP2
Re-Re-Salut,
ce n'est, amha, pas totalement satisfaisant parceque systématiquement toute sélection sera remplie par des "totos", et ça veut bien dire qu'à CHAQUE sélection réalisée une série de "totos" s'écrira.
Si c'est ce que tu veux faire, OK, sinon c'est à adapter sérieusement. Nos experts ne manqueront pas de corriger cela ;o)))
CAP2
"Dynamo" a écrit dans le message de news:
Salut,
Mon problème :
En cliquant sur le bouton gauche de la souris, j'affecte la valeur Toto dans
la cellule active.
En laissant le bouton gauche appuyé puis-je faire une saisie répétitive sur
les cellules suivantes (colonne +1) jusqu'au relâchement du bouton?
Dur dur pour un novice comme moi.
Re-Re-Salut,
ce n'est, amha, pas totalement satisfaisant parceque systématiquement toute
sélection sera remplie par des "totos", et ça veut bien dire qu'à CHAQUE
sélection réalisée une série de "totos" s'écrira.
Si c'est ce que tu veux faire, OK, sinon c'est à adapter sérieusement. Nos
experts ne manqueront pas de corriger cela ;o)))
CAP2
"Dynamo" <rene.debiasi@planetis.com> a écrit dans le message de news:
udQRcL3fEHA.3676@TK2MSFTNGP12.phx.gbl...
Salut,
Mon problème :
En cliquant sur le bouton gauche de la souris, j'affecte la valeur Toto
dans
la cellule active.
En laissant le bouton gauche appuyé puis-je faire une saisie répétitive
sur
les cellules suivantes (colonne +1) jusqu'au relâchement du bouton?
ce n'est, amha, pas totalement satisfaisant parceque systématiquement toute sélection sera remplie par des "totos", et ça veut bien dire qu'à CHAQUE sélection réalisée une série de "totos" s'écrira.
Si c'est ce que tu veux faire, OK, sinon c'est à adapter sérieusement. Nos experts ne manqueront pas de corriger cela ;o)))
CAP2
"Dynamo" a écrit dans le message de news:
Salut,
Mon problème :
En cliquant sur le bouton gauche de la souris, j'affecte la valeur Toto dans
la cellule active.
En laissant le bouton gauche appuyé puis-je faire une saisie répétitive sur
les cellules suivantes (colonne +1) jusqu'au relâchement du bouton?
Dur dur pour un novice comme moi.
Ricky
Bonjour *Dynamo* (et tous les lecteurs)
2 méthodes pour obtenir ce résultat: - Sélectionner toute la plage à remplir - Taper TOTO - Valider par CTRL+ENTER ou - Valider la saisie dans la premierre cellule (ENETER) - Cliquer gauche sur le petit carré qui apparaît dans le coin inférieur droit de la cellule et le tirer aussi loin que tu veux copier.
Rem : Pas besoin de cliquer gauche sur la cellule avant de commencer à la remplir.
| Salut, | Mon problème : | | En cliquant sur le bouton gauche de la souris, j'affecte la valeur | Toto dans la cellule active. | | En laissant le bouton gauche appuyé puis-je faire une saisie | répétitive sur les cellules suivantes (colonne +1) jusqu'au | relâchement du bouton? | | | | Dur dur pour un novice comme moi.
-- Ricky [MVP] Visitez les faq.... http://www.faqoe.com http://faqword.free.fr http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Bonjour *Dynamo* (et tous les lecteurs)
2 méthodes pour obtenir ce résultat:
- Sélectionner toute la plage à remplir - Taper TOTO - Valider par CTRL+ENTER
ou
- Valider la saisie dans la premierre cellule (ENETER) - Cliquer gauche sur le petit carré qui apparaît dans le coin inférieur droit de la cellule et le tirer aussi loin que tu veux copier.
Rem : Pas besoin de cliquer gauche sur la cellule avant de commencer à la remplir.
| Salut,
| Mon problème :
|
| En cliquant sur le bouton gauche de la souris, j'affecte la valeur
| Toto dans la cellule active.
|
| En laissant le bouton gauche appuyé puis-je faire une saisie
| répétitive sur les cellules suivantes (colonne +1) jusqu'au
| relâchement du bouton?
|
|
|
| Dur dur pour un novice comme moi.
--
Ricky [MVP] Visitez les faq....
http://www.faqoe.com http://faqword.free.fr
http://dj.joss.free.fr/faq.htm http://www.excelabo.net
2 méthodes pour obtenir ce résultat: - Sélectionner toute la plage à remplir - Taper TOTO - Valider par CTRL+ENTER ou - Valider la saisie dans la premierre cellule (ENETER) - Cliquer gauche sur le petit carré qui apparaît dans le coin inférieur droit de la cellule et le tirer aussi loin que tu veux copier.
Rem : Pas besoin de cliquer gauche sur la cellule avant de commencer à la remplir.
| Salut, | Mon problème : | | En cliquant sur le bouton gauche de la souris, j'affecte la valeur | Toto dans la cellule active. | | En laissant le bouton gauche appuyé puis-je faire une saisie | répétitive sur les cellules suivantes (colonne +1) jusqu'au | relâchement du bouton? | | | | Dur dur pour un novice comme moi.
-- Ricky [MVP] Visitez les faq.... http://www.faqoe.com http://faqword.free.fr http://dj.joss.free.fr/faq.htm http://www.excelabo.net
Dynamo
Salut les z'amis
Merci pour ces promptes réponses mais voici ce que j'essaie de faire :
Private Sub CommandButton1_Click()
lig = ActiveCell.Row
col = ActiveCell.Column
Range("a1") = 1
While Range("a1") = 1
Cells(lig, col) = "Toto"
Application.Wait Now + TimeValue("00:00:1")
col = col + 1
Cells(lig, col).Select
On Error GoTo Fin
Wend
Fin:
Range("a1") = 0
End Sub
En fait, je ne sais pas interrompre le traitement entre le While et Wend en relâchant le bouton gauche. J'ai testé MouseDown, MouseUp et Esc mais je ne sais pas comment m'y prendre. Je pense que ce que je demande est impossible à réaliser, mais sait-on jamais .
"Dynamo" a écrit dans le message de news:
-------------------------------------------------
Salut, Mon problème : En cliquant sur le bouton gauche de la souris, j'affecte la valeur Toto dans
la cellule active. En laissant le bouton gauche appuyé puis-je faire une saisie répétitive sur
les cellules suivantes (colonne +1) jusqu'au relâchement du bouton? Dur dur pour un novice comme moi.
Salut les z'amis
Merci pour ces promptes réponses mais voici ce que j'essaie de faire :
Private Sub CommandButton1_Click()
lig = ActiveCell.Row
col = ActiveCell.Column
Range("a1") = 1
While Range("a1") = 1
Cells(lig, col) = "Toto"
Application.Wait Now + TimeValue("00:00:1")
col = col + 1
Cells(lig, col).Select
On Error GoTo Fin
Wend
Fin:
Range("a1") = 0
End Sub
En fait, je ne sais pas interrompre le traitement entre le While et Wend en
relâchant le bouton gauche. J'ai testé MouseDown, MouseUp et Esc mais je ne
sais pas comment m'y prendre. Je pense que ce que je demande est impossible
à réaliser, mais sait-on jamais .
"Dynamo" <rene.debiasi@planetis.com> a écrit dans le message de news:
udQRcL3fEHA.3676@TK2MSFTNGP12.phx.gbl...
-------------------------------------------------
Salut,
Mon problème :
En cliquant sur le bouton gauche de la souris, j'affecte la valeur Toto
dans
la cellule active.
En laissant le bouton gauche appuyé puis-je faire une saisie répétitive
sur
les cellules suivantes (colonne +1) jusqu'au relâchement du bouton?
Dur dur pour un novice comme moi.
Merci pour ces promptes réponses mais voici ce que j'essaie de faire :
Private Sub CommandButton1_Click()
lig = ActiveCell.Row
col = ActiveCell.Column
Range("a1") = 1
While Range("a1") = 1
Cells(lig, col) = "Toto"
Application.Wait Now + TimeValue("00:00:1")
col = col + 1
Cells(lig, col).Select
On Error GoTo Fin
Wend
Fin:
Range("a1") = 0
End Sub
En fait, je ne sais pas interrompre le traitement entre le While et Wend en relâchant le bouton gauche. J'ai testé MouseDown, MouseUp et Esc mais je ne sais pas comment m'y prendre. Je pense que ce que je demande est impossible à réaliser, mais sait-on jamais .
"Dynamo" a écrit dans le message de news:
-------------------------------------------------
Salut, Mon problème : En cliquant sur le bouton gauche de la souris, j'affecte la valeur Toto dans
la cellule active. En laissant le bouton gauche appuyé puis-je faire une saisie répétitive sur
les cellules suivantes (colonne +1) jusqu'au relâchement du bouton? Dur dur pour un novice comme moi.
CAP2
Salut dynamo,
le code que je t'ai proposé ne répond pas à ta problématique ? Il permet bien de cliquer sur une cellule, laisser le doigt appuyé, balayer une plage de cellules, et au moment où tu relâches le doigt d'écrire ton texte dans la plage réalisée.
Si ce n'est pas ce que tu veux faire, c'est que je n'ai pas compris ta question ;o)) Milieu de semaine et déjà le cerveau en compote !! Pfff!!!
A plus
CAP2
"Dynamo" a écrit dans le message de news:
Salut les z'amis
Merci pour ces promptes réponses mais voici ce que j'essaie de faire :
Private Sub CommandButton1_Click()
lig = ActiveCell.Row
col = ActiveCell.Column
Range("a1") = 1
While Range("a1") = 1
Cells(lig, col) = "Toto"
Application.Wait Now + TimeValue("00:00:1")
col = col + 1
Cells(lig, col).Select
On Error GoTo Fin
Wend
Fin:
Range("a1") = 0
End Sub
En fait, je ne sais pas interrompre le traitement entre le While et Wend en
relâchant le bouton gauche. J'ai testé MouseDown, MouseUp et Esc mais je ne
sais pas comment m'y prendre. Je pense que ce que je demande est impossible
à réaliser, mais sait-on jamais .
"Dynamo" a écrit dans le message de news:
-------------------------------------------------
Salut, Mon problème : En cliquant sur le bouton gauche de la souris, j'affecte la valeur Toto dans
la cellule active. En laissant le bouton gauche appuyé puis-je faire une saisie répétitive sur
les cellules suivantes (colonne +1) jusqu'au relâchement du bouton? Dur dur pour un novice comme moi.
Salut dynamo,
le code que je t'ai proposé ne répond pas à ta problématique ?
Il permet bien de cliquer sur une cellule, laisser le doigt appuyé, balayer
une plage de cellules, et au moment où tu relâches le doigt d'écrire ton
texte dans la plage réalisée.
Si ce n'est pas ce que tu veux faire, c'est que je n'ai pas compris ta
question ;o))
Milieu de semaine et déjà le cerveau en compote !! Pfff!!!
A plus
CAP2
"Dynamo" <rene.debiasi@planetis.com> a écrit dans le message de news:
OXPvK15fEHA.1984@TK2MSFTNGP10.phx.gbl...
Salut les z'amis
Merci pour ces promptes réponses mais voici ce que j'essaie de faire :
Private Sub CommandButton1_Click()
lig = ActiveCell.Row
col = ActiveCell.Column
Range("a1") = 1
While Range("a1") = 1
Cells(lig, col) = "Toto"
Application.Wait Now + TimeValue("00:00:1")
col = col + 1
Cells(lig, col).Select
On Error GoTo Fin
Wend
Fin:
Range("a1") = 0
End Sub
En fait, je ne sais pas interrompre le traitement entre le While et Wend
en
relâchant le bouton gauche. J'ai testé MouseDown, MouseUp et Esc mais je
ne
sais pas comment m'y prendre. Je pense que ce que je demande est
impossible
à réaliser, mais sait-on jamais .
"Dynamo" <rene.debiasi@planetis.com> a écrit dans le message de news:
udQRcL3fEHA.3676@TK2MSFTNGP12.phx.gbl...
-------------------------------------------------
Salut,
Mon problème :
En cliquant sur le bouton gauche de la souris, j'affecte la valeur Toto
dans
la cellule active.
En laissant le bouton gauche appuyé puis-je faire une saisie répétitive
sur
les cellules suivantes (colonne +1) jusqu'au relâchement du bouton?
Dur dur pour un novice comme moi.
le code que je t'ai proposé ne répond pas à ta problématique ? Il permet bien de cliquer sur une cellule, laisser le doigt appuyé, balayer une plage de cellules, et au moment où tu relâches le doigt d'écrire ton texte dans la plage réalisée.
Si ce n'est pas ce que tu veux faire, c'est que je n'ai pas compris ta question ;o)) Milieu de semaine et déjà le cerveau en compote !! Pfff!!!
A plus
CAP2
"Dynamo" a écrit dans le message de news:
Salut les z'amis
Merci pour ces promptes réponses mais voici ce que j'essaie de faire :
Private Sub CommandButton1_Click()
lig = ActiveCell.Row
col = ActiveCell.Column
Range("a1") = 1
While Range("a1") = 1
Cells(lig, col) = "Toto"
Application.Wait Now + TimeValue("00:00:1")
col = col + 1
Cells(lig, col).Select
On Error GoTo Fin
Wend
Fin:
Range("a1") = 0
End Sub
En fait, je ne sais pas interrompre le traitement entre le While et Wend en
relâchant le bouton gauche. J'ai testé MouseDown, MouseUp et Esc mais je ne
sais pas comment m'y prendre. Je pense que ce que je demande est impossible
à réaliser, mais sait-on jamais .
"Dynamo" a écrit dans le message de news:
-------------------------------------------------
Salut, Mon problème : En cliquant sur le bouton gauche de la souris, j'affecte la valeur Toto dans
la cellule active. En laissant le bouton gauche appuyé puis-je faire une saisie répétitive sur
les cellules suivantes (colonne +1) jusqu'au relâchement du bouton? Dur dur pour un novice comme moi.
