Astuces Excel
  1. Astuces Excel
  3. Comment créer des conditions dans VBA pour chaque colonne dans une feuille de travail unique
Intereting Posts
Il est possible de faire 2 lists déroulantes différentes selon 1 valeur dans une cellule? Rechercher dans les dossiers / sous-dossiers plus rapidement Comment puis-je cocher une checkbox dans un location dans VBA Affichage dynamic des colonnes dans une feuille de calcul Excell COUNTIF caractères spéciaux Comment append une nouvelle ligne avec des données et styles de cellules dans Excel en utilisant OpenXML et C # Filtrage du tableau pivot avec vba Créer un file Excel dans l'application Universal Windows ou dans l'application Window Store Exécution d'une macro sur un autre file Excel Feuille de calcul OpenXML corrompue dans Excel C # excel automation manque de formatting conditionnel Comment VBA a déclaré Volatilité fonctionne Problème de bouclage Excel VBA (400000 lignes) L'logging Excel est inséré dans Sql DataBase Problème de données d'import Excel

Comment créer des conditions dans VBA pour chaque colonne dans une feuille de travail unique

Je suis tout à fait nouveau pour VBA, et serait génial si quelqu'un pouvait m'aider. Je suis chargé de créer un nouveau model pour mon travail. Le problème est que j'ai trouvé un code pour créer un pop-up, hybride et changer la couleur d'une cellule dans la colonne B si les conditions sont flexibles. J'ai eu son code fonctionnant pour Just coloumn B, mais maintenant la question principale. Comment puis-je implémenter la même logique pour les Colonnes A, C, D et ainsi de suite? 

Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Excel.Range If Not Intersect(Target, Columns("B")) Is Nothing Then For Each cell In Intersect(Target, Columns("B")) If Len(cell.Value) > 60 Then cell.Font.ColorIndex = 1 cell.Interior.ColorIndex = 22 cell.Font.Bold = True MsgBox "ID is exceeding the limit. Please check !!" ElseIf Len(cell.Value2) <= 60 Then cell.Font.ColorIndex = 1 cell.Interior.ColorIndex = 2 cell.Font.Bold = False End If Next cell End If End Sub

Merci d'avance 🙂

Vous pouvez utiliser la Range par opposition aux Columns , par exemple comme dans la Range("A1:F1000") ou, si loin, vous devez aller.

Je dirais de recréer le même code et d'éditer la valeur de la colonne, "B", dans ce cas. Enregistrez-les et créez un button pour lier à chaque module.

Bouton 1 pour la colonne A Bouton 2 pour la colonne B

Etc..