Traduction en VBA de "il existe"

Question

Bonjour à tous les membre du forum

Dans la recherche d'une gestion des erreurs, je cherche un code VBA pour traduire ceci :
"Si il n'existe aucune valeur numérique dans la colonne "X" (colonne choisie par l'utilisateur) alors ....."

Pouvez-vous me renseigner ?

D'avance merci

f894009 · Answer

Bonjour,

un exemple de code a mettre dans le VBA de la feuille

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ColAsc = Split(Target.Address, "$")(1)  'colonne en ascii
    derlig = Range(ColAsc & Rows.Count).End(xlUp).Row   'dernier cellule non vide de la colonne
    
    Set Plage = Range(ColAsc & 1 & ":" & ColAsc & derlig)       'mise en memoire de la plage cellules
    'boucle sur la plage
    For Each cel In Plage
        If IsNumeric(cel) Then
            MsgBox "cellule: " & Target.Address & " numerique:" & Target.Value
            Exit Sub
        End If
    Next
    MsgBox "Pas de cellules numerique!!!"
End Sub

Traduction en VBA de "il existe"

1 réponse

Discussions similaires

Newsletters