Test sur toutes les cellules pleines de la colonne A

Bonjour à tous,

Je m’adresse à vous parce que j’ai un petit souci pour résoudre un petit problème.

J’ai plusieurs informations dans la colonne A, lors de l'appuis sur le bouton (voir fichier joint), j’aimerais faire le test sur toutes les cellules pleines de cette même colonne, de manière que, lorsque les cinq premiers caractères sont : ‘HTY14’ alors il faut inscrire le prénom ‘Paulette’ dans la cellule de la colonne D de la même ligne.

Voir la 1ere ligne.

Merci de vos réponses.

27paulette.zip (12.13 Ko)

Bonjour,

dans un module, affecte ce code à ton bouton

Sub Filtre()
Dim Lg&
    Application.ScreenUpdating = False
    Lg = Range("a" & Rows.Count).End(xlUp).Row
    Range("k2") = "=LEFT(a2,5)=""HTY14"""       'critère
    Range("a1:d" & Lg).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Range("k1:k2"), Unique:=False

    Range("d2:d" & Lg).SpecialCells(xlCellTypeVisible) = "Paulette"
    On Error Resume Next
    ActiveSheet.ShowAllData
    Range("k2").ClearContents
End Sub

Amicalement

Claude

Bonjour Claude,

Merci pour le code, il fonctionne parfaitement bien et répond totalement à mes attentes.

Amitiés.

Bonjour,

Oubli de ma part,

en cas de modif, il vaut mieux effacer la colonne "D" en début de macro

Sub Filtre()
Dim Lg&
    Application.ScreenUpdating = False
    Lg = Range("a" & Rows.Count).End(xlUp).Row
    Range("d2:d" & Lg).ClearContents
    Range("k2") = "=LEFT(a2,5)=""HTY14"""       'critère
    Range("a1:d" & Lg).AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=Range("k1:k2"), Unique:=False

    On Error Resume Next
    Range("d2:d" & Lg).SpecialCells(xlCellTypeVisible) = "Paulette"
    ActiveSheet.ShowAllData
    Range("k2").ClearContents
End Sub

Amicalement

Claude

25harzer-filtre.zip (19.51 Ko)

Bonjour Claude,

Merci pour la solution, elle me donne satisfaction.

Bien à vous

Rechercher des sujets similaires à "test toutes pleines colonne"