Traduction en VBA de "il existe"
Fermé
F60lebaladinverni
Messages postés
128
Date d'inscription
samedi 28 janvier 2017
Statut
Membre
Dernière intervention
16 juin 2024
-
2 nov. 2018 à 18:54
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 3 nov. 2018 à 09:54
f894009 Messages postés 17241 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 février 2025 - 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
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"
- Traduction photo - Guide
- Traduction créole guadeloupe français reverso ✓ - Forum Loisirs / Divertissements
- Google traduction français arabe - Télécharger - Traduction
- Il existe une ou plusieurs références circulaires ✓ - Forum Excel
- Traduction d'une phrase creole en français - Forum Loisirs / Divertissements
1 réponse
f894009
Messages postés
17241
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 février 2025
1 713
3 nov. 2018 à 09:54
3 nov. 2018 à 09:54
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