Traduction en VBA de "il existe"
Fermé
F60lebaladinverni
Messages postés
126
Date d'inscription
samedi 28 janvier 2017
Statut
Membre
Dernière intervention
7 avril 2023
-
2 nov. 2018 à 18:54
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 3 nov. 2018 à 09:54
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 3 nov. 2018 à 09:54
A voir également:
- Traduction en VBA de "il existe"
- Traduction photo gratuit - Guide
- La bible traduction intégrale hébreu-français pdf - Télécharger - Vie quotidienne
- Quelle est la traduction en français du mot dont les 3 caractères unicode sont 6276 624b 6905 ? ✓ - Forum Programmation
- Aivia traduction - Guide
- Incompatibilité de type vba ✓ - Forum Programmation
1 réponse
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
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
