Determiner la 1ere et derniere cellule numerique d'une selection.

Bonjour,

voici une partie de code que tu peux intégrer dans ta procédure en remplacement du code existant

Private Sub NonSign()
Dim NbColSel As Integer

NbColSel = Selection.Columns.Count

If NbColSel = 0 Then
MsgBox "Vous n'avez rien selectionné !! Selectionner Vos Colonnes SVP", vbCritical, "Attention ..."
End If

--------- ton code à remplacer ---------------
'PremCol = Selection.Columns(1).Column
'Dim PremsNum As Variant
' For Each PremsNum In Selection.Columns(1)
' If IsNumeric(PremsNum) = True Then
' MsgBox "premier cellule numeric = " & PremsNum.Range
' End If
' Next
--------------------------------------------------
Do
' test si la cellule active est vide ou contient du texte
If ActiveCell = "" Or Not (IsNumeric(ActiveCell)) Then
' Décale la cellule vers le bas
ActiveCell.Offset(1, 0).Select
Else
'Quitte la boucle si la cellule active est numérique
Exit Do
End If
Loop

' Sélectionne la colonne de valeurs
Range(Selection, Selection.End(xlDown)).Select
' Dimensionne la zone en fonction du nombre de colonnes sélectionnées
Range(Selection, ActiveCell.Offset(0, NbColSel - 1)).Select

End Sub

Bon courage

Jeannot