Bonsoir
est-il possible d'empecher un utilisateur de sélectionner à la souris par
cliquer-glisser, plus de deux cellules en ligne et/ou en colonne ? C'est a
dire par exemple sélectionner de A1:A2 ou A1:B1 ou A1:B2.
merci
amicalement
Eliot
Bonsoir est-il possible d'empecher un utilisateur de sélectionner à la souris par cliquer-glisser, plus de deux cellules en ligne et/ou en colonne ? C'est a dire par exemple sélectionner de A1:A2 ou A1:B1 ou A1:B2. merci amicalement Eliot
Bonsoir,
Avec ceci dans le module de feuille ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
cbn = Selection.Cells.Count
If cbn > 2 Then Range("a1").Select
End Sub
"EliotNaiss" <eliotn@laposteraie.net> a écrit dans le message de
news:OWLOlDbSEHA.504@TK2MSFTNGP11.phx.gbl...
Bonsoir
est-il possible d'empecher un utilisateur de sélectionner à la souris par
cliquer-glisser, plus de deux cellules en ligne et/ou en colonne ? C'est a
dire par exemple sélectionner de A1:A2 ou A1:B1 ou A1:B2.
merci
amicalement
Eliot
Bonsoir est-il possible d'empecher un utilisateur de sélectionner à la souris par cliquer-glisser, plus de deux cellules en ligne et/ou en colonne ? C'est a dire par exemple sélectionner de A1:A2 ou A1:B1 ou A1:B2. merci amicalement Eliot
EliotNaiss
je vais essayer cela, demain :-) merci de la diligence. amicalement Eliot Retirer la raie pour répondre "Philippe.R" a écrit dans le message de news:
Bonsoir,
Avec ceci dans le module de feuille ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range) cbn = Selection.Cells.Count If cbn > 2 Then Range("a1").Select End Sub
Bonsoir est-il possible d'empecher un utilisateur de sélectionner à la souris par
cliquer-glisser, plus de deux cellules en ligne et/ou en colonne ? C'est a
dire par exemple sélectionner de A1:A2 ou A1:B1 ou A1:B2. merci amicalement Eliot
je vais essayer cela, demain :-)
merci de la diligence.
amicalement
Eliot
Retirer la raie pour répondre
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de
news:OdaMsPbSEHA.3872@TK2MSFTNGP10.phx.gbl...
Bonsoir,
Avec ceci dans le module de feuille ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
cbn = Selection.Cells.Count
If cbn > 2 Then Range("a1").Select
End Sub