Bonsoir,
Il y a aussi cela:
'================= Compte Non-Fusionnées Daniel M.
Function CNF(MaSelection As Range) As Long
Dim i As Long, C As Range
i = 0
For Each C In MaSelection
If C.MergeCells Then
If C.Address <> C.MergeArea(1, 1).Address Then
i = i + 1 ' pas la première, on la soustraiera du total
End If
End If
Next C
CNF = MaSelection.Cells.Count - i
End Function
' ================= Fin du code
Comme les autres, elle a le défaut de ne pas être directement reliée au
moteur
de calcul/recalcul d'Excel.
Salutations,
Daniel M.
Bonsoir,
Il y a aussi cela:
'================= Compte Non-Fusionnées Daniel M.
Function CNF(MaSelection As Range) As Long
Dim i As Long, C As Range
i = 0
For Each C In MaSelection
If C.MergeCells Then
If C.Address <> C.MergeArea(1, 1).Address Then
i = i + 1 ' pas la première, on la soustraiera du total
End If
End If
Next C
CNF = MaSelection.Cells.Count - i
End Function
' ================= Fin du code
Comme les autres, elle a le défaut de ne pas être directement reliée au
moteur
de calcul/recalcul d'Excel.
Salutations,
Daniel M.
Bonsoir,
Il y a aussi cela:
'================= Compte Non-Fusionnées Daniel M.
Function CNF(MaSelection As Range) As Long
Dim i As Long, C As Range
i = 0
For Each C In MaSelection
If C.MergeCells Then
If C.Address <> C.MergeArea(1, 1).Address Then
i = i + 1 ' pas la première, on la soustraiera du total
End If
End If
Next C
CNF = MaSelection.Cells.Count - i
End Function
' ================= Fin du code
Comme les autres, elle a le défaut de ne pas être directement reliée au
moteur
de calcul/recalcul d'Excel.
Salutations,
Daniel M.
Quand je vois cela, j'ai l'impression d'avoir proposé un rouleau
compresseur...
Quand je vois cela, j'ai l'impression d'avoir proposé un rouleau
compresseur...
Quand je vois cela, j'ai l'impression d'avoir proposé un rouleau
compresseur...
Salut Emcy,
Non en effet ce n'est pas si important que ça! Mais c'est quand même un peu
plus "propre".
Ce n'est pas si important car la fonction gère explicitement la borne min du
tableau avec 1 pour minimum dans:
For lngIndTabRange = 1 To lngMaxIndTabRange
For lngIndTabRange = lbound(lngTabRange) To lngMaxIndTabRange
Il pourrait y avoir des soucis...
Et puis il est en effet beaucoup plus naturel d'utiliser cette macro en
fonction!
A+
Rv
"Emcy" a écrit dans le message de
news:%Merci, ça à l'air de marcher
tu es sure qu'il faut mettre Option Base 1 ? ça a l'air de marcher sans
j'utilise plustot cette macro en fonction voila le code si ça t'interesse
:Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv
Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long
Dim lngNbrCell As Long
Dim booTrouve As Boolean
' Init
lngMaxIndTabRange = 0
lngNbrCell = 0
' Récup de la sélection
'Set objRange = Application.Selection
' Parcours des cellules de la sélection
For Each objCell In MaSelection
' Si on est sur une cellule fusionnée
If objCell.MergeCells Then
' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next
' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next
'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell
End Function
Salut Emcy,
Non en effet ce n'est pas si important que ça! Mais c'est quand même un peu
plus "propre".
Ce n'est pas si important car la fonction gère explicitement la borne min du
tableau avec 1 pour minimum dans:
For lngIndTabRange = 1 To lngMaxIndTabRange
For lngIndTabRange = lbound(lngTabRange) To lngMaxIndTabRange
Il pourrait y avoir des soucis...
Et puis il est en effet beaucoup plus naturel d'utiliser cette macro en
fonction!
A+
Rv
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:%23iUfBSzYEHA.1356@TK2MSFTNGP09.phx.gbl...
Merci, ça à l'air de marcher
tu es sure qu'il faut mettre Option Base 1 ? ça a l'air de marcher sans
j'utilise plustot cette macro en fonction voila le code si ça t'interesse
:
Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv
Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long
Dim lngNbrCell As Long
Dim booTrouve As Boolean
' Init
lngMaxIndTabRange = 0
lngNbrCell = 0
' Récup de la sélection
'Set objRange = Application.Selection
' Parcours des cellules de la sélection
For Each objCell In MaSelection
' Si on est sur une cellule fusionnée
If objCell.MergeCells Then
' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next
' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next
'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell
End Function
Salut Emcy,
Non en effet ce n'est pas si important que ça! Mais c'est quand même un peu
plus "propre".
Ce n'est pas si important car la fonction gère explicitement la borne min du
tableau avec 1 pour minimum dans:
For lngIndTabRange = 1 To lngMaxIndTabRange
For lngIndTabRange = lbound(lngTabRange) To lngMaxIndTabRange
Il pourrait y avoir des soucis...
Et puis il est en effet beaucoup plus naturel d'utiliser cette macro en
fonction!
A+
Rv
"Emcy" a écrit dans le message de
news:%Merci, ça à l'air de marcher
tu es sure qu'il faut mettre Option Base 1 ? ça a l'air de marcher sans
j'utilise plustot cette macro en fonction voila le code si ça t'interesse
:Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv
Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long
Dim lngNbrCell As Long
Dim booTrouve As Boolean
' Init
lngMaxIndTabRange = 0
lngNbrCell = 0
' Récup de la sélection
'Set objRange = Application.Selection
' Parcours des cellules de la sélection
For Each objCell In MaSelection
' Si on est sur une cellule fusionnée
If objCell.MergeCells Then
' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next
' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next
'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell
End Function
Salut Emcy,
Non en effet ce n'est pas si important que ça! Mais c'est quand même un peu
plus "propre".
Ce n'est pas si important car la fonction gère explicitement la borne min du
tableau avec 1 pour minimum dans:
For lngIndTabRange = 1 To lngMaxIndTabRange
For lngIndTabRange = lbound(lngTabRange) To lngMaxIndTabRange
Il pourrait y avoir des soucis...
Et puis il est en effet beaucoup plus naturel d'utiliser cette macro en
fonction!
A+
Rv
"Emcy" a écrit dans le message de
news:%Merci, ça à l'air de marcher
tu es sure qu'il faut mettre Option Base 1 ? ça a l'air de marcher sans
j'utilise plustot cette macro en fonction voila le code si ça t'interesse
:Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv
Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long
Dim lngNbrCell As Long
Dim booTrouve As Boolean
' Init
lngMaxIndTabRange = 0
lngNbrCell = 0
' Récup de la sélection
'Set objRange = Application.Selection
' Parcours des cellules de la sélection
For Each objCell In MaSelection
' Si on est sur une cellule fusionnée
If objCell.MergeCells Then
' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next
' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next
'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell
End Function
Salut Emcy,
Non en effet ce n'est pas si important que ça! Mais c'est quand même un peu
plus "propre".
Ce n'est pas si important car la fonction gère explicitement la borne min du
tableau avec 1 pour minimum dans:
For lngIndTabRange = 1 To lngMaxIndTabRange
For lngIndTabRange = lbound(lngTabRange) To lngMaxIndTabRange
Il pourrait y avoir des soucis...
Et puis il est en effet beaucoup plus naturel d'utiliser cette macro en
fonction!
A+
Rv
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:%23iUfBSzYEHA.1356@TK2MSFTNGP09.phx.gbl...
Merci, ça à l'air de marcher
tu es sure qu'il faut mettre Option Base 1 ? ça a l'air de marcher sans
j'utilise plustot cette macro en fonction voila le code si ça t'interesse
:
Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv
Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long
Dim lngNbrCell As Long
Dim booTrouve As Boolean
' Init
lngMaxIndTabRange = 0
lngNbrCell = 0
' Récup de la sélection
'Set objRange = Application.Selection
' Parcours des cellules de la sélection
For Each objCell In MaSelection
' Si on est sur une cellule fusionnée
If objCell.MergeCells Then
' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next
' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next
'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell
End Function
Salut Emcy,
Non en effet ce n'est pas si important que ça! Mais c'est quand même un peu
plus "propre".
Ce n'est pas si important car la fonction gère explicitement la borne min du
tableau avec 1 pour minimum dans:
For lngIndTabRange = 1 To lngMaxIndTabRange
For lngIndTabRange = lbound(lngTabRange) To lngMaxIndTabRange
Il pourrait y avoir des soucis...
Et puis il est en effet beaucoup plus naturel d'utiliser cette macro en
fonction!
A+
Rv
"Emcy" a écrit dans le message de
news:%Merci, ça à l'air de marcher
tu es sure qu'il faut mettre Option Base 1 ? ça a l'air de marcher sans
j'utilise plustot cette macro en fonction voila le code si ça t'interesse
:Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv
Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long
Dim lngNbrCell As Long
Dim booTrouve As Boolean
' Init
lngMaxIndTabRange = 0
lngNbrCell = 0
' Récup de la sélection
'Set objRange = Application.Selection
' Parcours des cellules de la sélection
For Each objCell In MaSelection
' Si on est sur une cellule fusionnée
If objCell.MergeCells Then
' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next
' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next
'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell
End Function
Salut Emcy,
Non en effet ce n'est pas si important que ça! Mais c'est quand même un peu
plus "propre".
Ce n'est pas si important car la fonction gère explicitement la borne min du
tableau avec 1 pour minimum dans:
For lngIndTabRange = 1 To lngMaxIndTabRange
For lngIndTabRange = lbound(lngTabRange) To lngMaxIndTabRange
Il pourrait y avoir des soucis...
Et puis il est en effet beaucoup plus naturel d'utiliser cette macro en
fonction!
A+
Rv
"Emcy" a écrit dans le message de
news:%Merci, ça à l'air de marcher
tu es sure qu'il faut mettre Option Base 1 ? ça a l'air de marcher sans
j'utilise plustot cette macro en fonction voila le code si ça t'interesse
:Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv
Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long
Dim lngNbrCell As Long
Dim booTrouve As Boolean
' Init
lngMaxIndTabRange = 0
lngNbrCell = 0
' Récup de la sélection
'Set objRange = Application.Selection
' Parcours des cellules de la sélection
For Each objCell In MaSelection
' Si on est sur une cellule fusionnée
If objCell.MergeCells Then
' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next
' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next
'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell
End Function
Salut Emcy,
Non en effet ce n'est pas si important que ça! Mais c'est quand même un peu
plus "propre".
Ce n'est pas si important car la fonction gère explicitement la borne min du
tableau avec 1 pour minimum dans:
For lngIndTabRange = 1 To lngMaxIndTabRange
For lngIndTabRange = lbound(lngTabRange) To lngMaxIndTabRange
Il pourrait y avoir des soucis...
Et puis il est en effet beaucoup plus naturel d'utiliser cette macro en
fonction!
A+
Rv
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:%23iUfBSzYEHA.1356@TK2MSFTNGP09.phx.gbl...
Merci, ça à l'air de marcher
tu es sure qu'il faut mettre Option Base 1 ? ça a l'air de marcher sans
j'utilise plustot cette macro en fonction voila le code si ça t'interesse
:
Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv
Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long
Dim lngNbrCell As Long
Dim booTrouve As Boolean
' Init
lngMaxIndTabRange = 0
lngNbrCell = 0
' Récup de la sélection
'Set objRange = Application.Selection
' Parcours des cellules de la sélection
For Each objCell In MaSelection
' Si on est sur une cellule fusionnée
If objCell.MergeCells Then
' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next
' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next
'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell
End Function
Salut Emcy,
Non en effet ce n'est pas si important que ça! Mais c'est quand même un peu
plus "propre".
Ce n'est pas si important car la fonction gère explicitement la borne min du
tableau avec 1 pour minimum dans:
For lngIndTabRange = 1 To lngMaxIndTabRange
For lngIndTabRange = lbound(lngTabRange) To lngMaxIndTabRange
Il pourrait y avoir des soucis...
Et puis il est en effet beaucoup plus naturel d'utiliser cette macro en
fonction!
A+
Rv
"Emcy" a écrit dans le message de
news:%Merci, ça à l'air de marcher
tu es sure qu'il faut mettre Option Base 1 ? ça a l'air de marcher sans
j'utilise plustot cette macro en fonction voila le code si ça t'interesse
:Function CompteNombreCellules(MaSelection As Range) As Integer 'macro très
fortement inspirée d'une macro de Rv
Dim objCell As Range
Dim objRange As Range
Dim lngTabRange() As Range
Dim lngMaxIndTabRange As Long
Dim lngIndTabRange As Long
Dim lngNbrCell As Long
Dim booTrouve As Boolean
' Init
lngMaxIndTabRange = 0
lngNbrCell = 0
' Récup de la sélection
'Set objRange = Application.Selection
' Parcours des cellules de la sélection
For Each objCell In MaSelection
' Si on est sur une cellule fusionnée
If objCell.MergeCells Then
' On recherche dans le tableau des fusions si la zone existe
déjà
booTrouve = False
For lngIndTabRange = 1 To lngMaxIndTabRange
If objCell.MergeArea.Address > > lngTabRange(lngIndTabRange).Address Then
booTrouve = True
Exit For
End If
Next
' Si on ne trouve pas cette zone dans le tableau des zones
fusionnées
If Not booTrouve Then
' On ajoute la zone au tableau
lngMaxIndTabRange = lngMaxIndTabRange + 1
ReDim Preserve lngTabRange(lngMaxIndTabRange)
Set lngTabRange(lngMaxIndTabRange) = objCell.MergeArea
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
' Si on est pas sur une cellule fusionnée
Else
' On augmente de 1 le nombre de cellules
lngNbrCell = lngNbrCell + 1
End If
Next
'MsgBox "Résultat : " & lngNbrCell
CompteNombreCellules = lngNbrCell
End Function
Salut Daniel,
Soit la plage A1:B3
Les cellules A1 et B1 sont fusionnées
La formule =CNF(A1:B3) ne devrait-elle pas renvoyer 5 et non 6 comme elle le
fait ?
AV
Salut Daniel,
Soit la plage A1:B3
Les cellules A1 et B1 sont fusionnées
La formule =CNF(A1:B3) ne devrait-elle pas renvoyer 5 et non 6 comme elle le
fait ?
AV
Salut Daniel,
Soit la plage A1:B3
Les cellules A1 et B1 sont fusionnées
La formule =CNF(A1:B3) ne devrait-elle pas renvoyer 5 et non 6 comme elle le
fait ?
AV
...Micro-climat? :-)
Ok vu.....!
...Micro-climat? :-)
Ok vu.....!
...Micro-climat? :-)
Ok vu.....!
-----Message d'origine-----...Micro-climat? :-)
Ok vu.....!
Comme il n'y a pas "Application.volatile", je
m'escrimais en vain sur le
F9.....!
Pfff
AV
.
-----Message d'origine-----
...Micro-climat? :-)
Ok vu.....!
Comme il n'y a pas "Application.volatile", je
m'escrimais en vain sur le
F9.....!
Pfff
AV
.
-----Message d'origine-----...Micro-climat? :-)
Ok vu.....!
Comme il n'y a pas "Application.volatile", je
m'escrimais en vain sur le
F9.....!
Pfff
AV
.
