Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

VB : déterminer le sens d'un copier glisser

3 réponses
Avatar
Le Nordiste
Bonjour tertous,

De mani=E8re =E0 diff=E9rencier les traitements je d=E9sire distinguer le
sens du copier coller dans le sens vertical.

Pratiquement :
Je saisie une valeur en D30.
SI Je recopie celle ci vers le bas -de D31 =E0 D33-
ALORS faire le traitement B
SI je recopie celle ci vers le haut - de D29 =E0 D27-
ALORS faire le traitement H

Comment distinguer le sens ?

Remerciements anticip=E9s,
Bon week-end.


loi de Hofstadter :
=C7a prend toujours plus de temps qu'on ne le pense
m=EAme en tenant compte de la loi de Hofstadter.

3 réponses

Avatar
Daniel
Bonjour.
essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Row < 30 Then
macro1
ElseIf Target.Row > 30 Then
macro2
End If
End Sub

Cordialement.
Daniel
"Le Nordiste" a écrit dans le message de
news:
Bonjour tertous,

De manière à différencier les traitements je désire distinguer le
sens du copier coller dans le sens vertical.

Pratiquement :
Je saisie une valeur en D30.
SI Je recopie celle ci vers le bas -de D31 à D33-
ALORS faire le traitement B
SI je recopie celle ci vers le haut - de D29 à D27-
ALORS faire le traitement H

Comment distinguer le sens ?

Remerciements anticipés,
Bon week-end.


loi de Hofstadter :
Ça prend toujours plus de temps qu'on ne le pense
même en tenant compte de la loi de Hofstadter.
Avatar
Le Nordiste
Comme la ligne n'est pas toujours la même ni la colonne d'ailleurs, la
proposition ne convient pas aussi directement ; mais il y a peut étre
à chercher de ce coté là.
Merci.



Daniel wrote:
Bonjour.
essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Row < 30 Then
macro1
ElseIf Target.Row > 30 Then
macro2
End If
End Sub

Cordialement.
Daniel
"Le Nordiste" a écrit dans le message de
news:
Bonjour tertous,

De manière à différencier les traitements je désire distinguer le
sens du copier coller dans le sens vertical.

Pratiquement :
Je saisie une valeur en D30.
SI Je recopie celle ci vers le bas -de D31 à D33-
ALORS faire le traitement B
SI je recopie celle ci vers le haut - de D29 à D27-
ALORS faire le traitement H

Comment distinguer le sens ?

Remerciements anticipés,
Bon week-end.


loi de Hofstadter :
Ça prend toujours plus de temps qu'on ne le pense
même en tenant compte de la loi de Hofstadter.


Avatar
Daniel
Bonjour.
Essaie alors :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Rows.Count = 1 Then Exit Sub
If Target.Row < ActiveCell.Row Then
macro1
ElseIf Target.Row = ActiveCell.Row Then
macro2
End If
End Sub

Cordialement.
Daniel
"Le Nordiste" a écrit dans le message de
news:
Comme la ligne n'est pas toujours la même ni la colonne d'ailleurs, la
proposition ne convient pas aussi directement ; mais il y a peut étre
à chercher de ce coté là.
Merci.



Daniel wrote:
Bonjour.
essaie :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Row < 30 Then
macro1
ElseIf Target.Row > 30 Then
macro2
End If
End Sub

Cordialement.
Daniel
"Le Nordiste" a écrit dans le message de
news:
Bonjour tertous,

De manière à différencier les traitements je désire distinguer le
sens du copier coller dans le sens vertical.

Pratiquement :
Je saisie une valeur en D30.
SI Je recopie celle ci vers le bas -de D31 à D33-
ALORS faire le traitement B
SI je recopie celle ci vers le haut - de D29 à D27-
ALORS faire le traitement H

Comment distinguer le sens ?

Remerciements anticipés,
Bon week-end.


loi de Hofstadter :
Ça prend toujours plus de temps qu'on ne le pense
même en tenant compte de la loi de Hofstadter.