VBA excel help svp Résolu/Fermé

Question

Bonjour,

Je suis débutant en VBA et je souhaiterai effectuer une procédure qui fasse grosso modo:

Range("C3").activate
if activerow (activecell.row?) = *range("C2")* then donothing else row hide
activecell.offset(0,1)
if activerow (activecell.row?) = *range("C2")* then donothing else row hide
activecell.offset(0,1)

...

et ainsi de suite jusqu'à ce qu'il n'y ai plus rien dans les lignes...

Pour résumer, qui cache toute les lignes qui ne contiennent pas ce que l'on rentre dans la cellule C2 et qui ne sont pas vides

Merci d'avance de votre aide

michel_m · Answer

Demande incompréhensible .....

en plus:
*range("C2")* then donothing else row hide : Patois VBA maison ?
--

michel_m · Answer

Salut Pijaku

bravo, Champollion ! ;-)

Je te laisse le bébé

pijaku · Answer

On ne doit tester que la colonne C ou la valeur contenue dans "C2" peut être partout dans ton tableau?

MC's Assigned geek · Answer

La valeur C2 peut-être n'importe ou dans chaque ligne testé...

Merci de ton aide Pijaku,

pijaku · Answer

Salut,
Ce code masque toutes les lignes ou l'on ne trouve pas la valeur de la cellule C2 (y compris les lignes vides) :

Dim NBlignes As Integer, NBCol As Integer, i As Integer, j As Integer, cpt As Integer
cpt = 0
NBlignes = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
NBCol = ActiveSheet.UsedRange.Columns.Count
For i = 3 To NBlignes
For j = 1 To NBCol
If Cells(i, j).Value = Range("C2").Value Then
cpt = 1
End If
Next j
If cpt = 0 Then
Cells(i, j).EntireRow.Hidden = True
End If
cpt = 0
Next i

MC's Assigned geek · Answer

Malheureusement ca ne marche pas...
Il semble y avoir un problème avec la ligne 

Cells(i, j).EntireRow.Hidden = True

... je continue à chercher de mon côté mais compte sur vous pour m'aider.

MC's a gK

gbinforme · Answer

bonjour

Tu peux remplacer Cells(i, j).EntireRow.Hidden = True
par
Rows(i).Hidden = True