Macro (fichier joint)

Salut à tous,

Je dois encore faire appel à vos compétences.

Je n'arrive vraiment pas à effectuer une macro qui me semble facile à effectuer mais impossible à effectuer.

Le principe est à effectuer de manière récurrente entre les cellules 7 à 70.

Si A6 = T1

alors masquer les colonnes (C;D;F;G;J;K;M;N) (autrement dit si une partie du texte dans les colonnes B:N de la ligne 6 ne contient pas le texte "T1" (la valeur présente en A1) alors masquer la colonne)

Dim i as Long

For i = 7 to 70

If Cells(i, A)="" Then Cell(i,B) MAIS IF Cells(i,B)="" Then Cells(i,E)

If Cells(i, H)="" Then Cell(i,I) MAIS IF Cells(i,I)="" Then Cells(i,L)

Après je ferais pareil avec T2 et T3 et Prix personalisé

Merci d'avance pour toute aide

Cordialement

re-bonjour !

Sub filtre()
Dim c As Byte, filtre$

filtre = Range("A6").Value
c = 2

Do While IsEmpty(Cells(6, c)) = False
    If Cells(6, c).Value Like "*" & filtre & "*" Then Columns(c).Hidden = False Else Columns(c).Hidden = True
    c = c + 1
Loop

End Sub

Nickel ce que tu m'as proposé, merci.

J'ai une erreur de syntaxe pour la suite de la formule, si tu peux m'aider ce serait cool :

Dim i as Long

For i = 12 to 70

If Cells(i,"B").Value >< "" Then Nothing _ ' Je voulais dire : ne rien faire.

Else If Cells(i, "C") = "" Then Cells(i,"B")=Cells(i, "F")

Next i

J'ai tenté çà :

For i = 12 To 70
If Cells(i, "B").Value = "" And Cells(i, "C") = "" Then Cells(i, "B") = Cells(i, "F")
Next i