étendre une plage de données RANGE

[ventesprivee]

bonsoir

j'utilise le code suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F5:F100")) Is Nothing Then ActiveCell.Value = Now()
End Sub

qui me permet d'avoir l'heure dans une cellule

Cependant je souhaite étendre ma plage de données (mon RANGE) à d'autres colonnes (mais pas régulières J,K .., ) comment faire et quoi rajouter ?

merci de votre aide

 

[tototiti2008]

Re : étendre une plage de données RANGE

Bonsoir ventesprivee,

Qu'est-ce que tu vends ? 🙂

sur le principe

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("F5:F100,J5:J100,Z5:Z100")) Is Nothing Then ActiveCell.Value = Now()
End Sub

Edit : Bonsoir Patrick 🙂

 

[Victor21]

Re : étendre une plage de données RANGE

Bonsoir, ventesprivée.

L'aide VBA nous dit :

Set bigRange = Application.Union(Range("Range1"), Range("Range2"))

Qu'en pensez-vous ?

Edit : Bonsoir, tototiti 🙂

 

[ventesprivee]

Re : étendre une plage de données RANGE

salut
je ne vends rien ... mais bon merci quand même tu m'as bien dépanné

autre question pendant qu'on y est

j'utilise le code

=RANG(G5;G5:G100;1) pour classer dans l'ordre croissant des temps hh:mm:ss

cependant il faudrait que le code ignore dans son tri des cellules où il y a marqué "00:00:00" (personne non partie) (plusieurs cellules sont ainsi marquées 00:00:00)

merci beaucoup

 

[Victor21]

Re : étendre une plage de données RANGE

Bonsoir.

Une réponse ici

 

[tototiti2008]

Re : étendre une plage de données RANGE

Bonsoir Patrick,
Re,

merci quand même​

de rien quand même

peut-être

=RANG(G5;G5:G100;1)-nb.si(G5:G100;0)

Edit : Oups, Bing, décidément 😉