VBA - Ajouter Texte en commentaire de cellule si

[Arnaud81]

Bonjour,

Je souhaiterai que toutes les cellules de mon fichier contenant le texte "Transverse" puisse se voir appliquer la macro ci dessous. En fait, il faudrait que je remplace "With Selection.Validation" par "je recherche toutes les cellules contenant le texte "transverse""

Sub Macro1()
'

With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = "blabla"
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub

Une idée?

Merci

 

[Robert]

Re : VBA - Ajouter Texte en commentaire de cellule si

Bonjour Arnaud, bonjour le forum,

Peut-être comme ça :

For Each cel In UsedRange '(à adapter à ton cas)
    If cel.Value = "transverse" Then
        With cel.Validation
            .Delete
            .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
               :=xlBetween
            .IgnoreBlank = True
            .InCellDropdown = True
            .InputTitle = ""
            .ErrorTitle = ""
            .InputMessage = "blabla"
            .ErrorMessage = ""
            .ShowInput = True
            .ShowError = True
        End With
    End If
Next cel

 

[Arnaud81]

Re : VBA - Ajouter Texte en commentaire de cellule si

Salut Robert,

Quand tu dis "(à adapter à ton cas)", mon cas serait que cela s'applique sur l'ensemble des feuilles du classeur de la cellule A1 à Z1... Mais je ne sais pas traduire cela en VBA...

 

[Robert]

Re : VBA - Ajouter Texte en commentaire de cellule si

Bonjour Arnaud, bonjour le forum,

Dans ce cas, essaie comme ça (et surtout essaie de poser les bonnes questions d'entrée...) :

Dim o As Object 'déclare la varialbe o (Onglet)

For Each o In Sheets 'boucle 1 : sur tous les onglets du classeur
    For Each cel In o.Range("A1:Z1") 'boucle 2 : sur toutes les cellules de la plage A1:Z1 de l'onglet
        If cel.Value = "transverse" Then
            With cel.Validation
                .Delete
                .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
                   :=xlBetween
                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = "blabla"
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
            End With
        End If
    Next cel 'prochaine cellule de la boucle 2
Next o 'prochain onglet du classeur

 

[Arnaud81]

Re : VBA - Ajouter Texte en commentaire de cellule si

Merci Robert!

Bonne journée