Menu

Traduction en VBA de "il existe"

Messages postés
88
Date d'inscription
samedi 28 janvier 2017
Dernière intervention
3 novembre 2018
- 2 nov. 2018 à 18:54 - Dernière réponse :
Messages postés
13724
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
20 novembre 2018
- 3 nov. 2018 à 09:54
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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
13724
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
20 novembre 2018
- 3 nov. 2018 à 09:54
0
Merci
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
Commenter la réponse de f894009