Traduction en VBA de "il existe"
F60lebaladinverni
Messages postés
128
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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
A voir également:
- Traduction en VBA de "il existe"
- Google traduction photo - Guide
- Il existe une ou plusieurs références circulaires ✓ - Forum Excel
- Kif'n'dir traduction ✓ - Forum Windows
- Incompatibilité de type vba ✓ - Forum Programmation
- Gmail.fr existe ✓ - Forum Gmail
1 réponse
Bonjour,
un exemple de code a mettre dans le VBA de la feuille
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