Astuces Excel
  1. Astuces Excel
  3. Alors qu'une cellule est sélectionnée dans une colonne spécifique, faites quelque chose quand pas un msg d'erreur
Intereting Posts
Le code VBA de la feuille de calcul Excel ne fonctionne pas tout le path Déterminez par programme si un file Excel (.xls) contient des macros Fonction Excel pour SOMMAIRE toutes les valeurs dans une colonne sauf la dernière valeur Utilisation de arrays dans Excel C # export datatable vers excel tableur * reference d'object non définie sur une instance d'object Exporter datatables au format .xls plutôt que délimiter les tabs Comment gérer 'Non' ou 'Annuler' sur Workbook.SaveAs écraser la confirmation? Comment afficher les noms chinois dans la feuille Excel? XLLoop (Excel 2010) – Intégration d'une fonction java qui renvoie un tableau / list de valeurs Microsoft Office Interop Excel ne stocke pas dans le server Windows 2008 Excel VBA Macro – Looping dans une colonne d'une table filtrée Création / téléchargement d'un file excel avec une extension chrome Ensemble de sortie de la fonction VBA à la feuille Excel en utilisant la formule Est-ce que PowerShell est discriminatoire contre les feuilles de calcul Excel visibles, cachées et très cachées? données de format exscopes dans excel de Crystal Report

Alors qu'une cellule est sélectionnée dans une colonne spécifique, faites quelque chose quand pas un msg d'erreur

Bonjour, j'essaie de faire un code comme ci-dessous 

Do while (the selected cell is in the column b) Code... End Loop Message error

Lorsque je clique sur le button lorsque la cellule sélectionnée ne figure pas dans la colonne b, j'aimerais apparaître un msg d'erreur

Pourvu qu'une seule cellule soit sélectionnée, vous pouvez get le résultat souhaité en utilisant l'instruction suivante: 

 ' get the column number col = Selection.Column()

La colonne "B" correspond à la colonne numéro 2. Si la sélection n'est pas dans une colonne 2, affiche le message d'erreur (selon vos besoins).

J'espère que cela aidera.

Selon votre commentaire, vous pouvez essayer quelque chose comme ceci: 

 Dim r As Range 'assign the selection to a variable 'but make sure it is a range If TypeName(Selection) = "Range" Then Set r = Selection 'check if something is assigned to r; meaning a range is selected If Not r Is Nothing Then 'check if it is somewhere in Column B If Not Intersect(r, Sheets("Sheet1").Range("B:B")) Is Nothing Then 'do your stuff here Else 'your error message here MsgBox "Invalid Selection", vbCritical End If End If

Le code ci-dessus utilise MsgBox pour agir comme votre message d'erreur.
Est-ce ce que vous essayez? HTH.