Re : Effacer ligne vide
Bonjour Yohan,
Cela fontionne effectivement dans ton fichier, mais ho la la c'est tout autre chose lorsque je colle ta macro dans le mien lolll....
Voici ta macro :
Private Sub Worksheet_Activate()
Dim ligne As Long
ligne = Worksheets
("Marie").Range("A6000").End(xlUp).Row
Range("
A3:B" & ligne).Delete Shift:=xlUp
Rows("1:" & ligne).EntireRow.Hidden = False
Range("
A2").Select
Selection.AutoFill Destination:=Range("
A2:A" & ligne), Type:=xlFillDefault
Range("
A2:A" & ligne).Select
Range("
B2").Select
Selection.AutoFill Destination:=Range("
B2:B" & ligne), Type:=xlFillDefault
Range("
B2:B" & ligne).Select
For i = 1 To ligne
If Range("A" & i).Text = "" Then
Rows(i).EntireRow.Hidden = True
Else
Rows(i).EntireRow.Hidden = False
End If
Next i
End Sub
Je comprend que je dois remplacer '' Marie'' par ''Planif'' qui est le nom de mon 1er onglet... Mais ensuite je suis incapable de situer tes nom de cellule
Dans mon onglet Planif, le premier nom se retrouve à la cellule B3, la 1ère date se retrouve M3, il y a présentement 59 nom mais il pourrait y en avoir jusqu'à 1000.
Dans le deuxième onglet qui s'appelle ''SEM 38'' le premier nom doit se retrouver dans la cellule A10, parconséquent un nom pourrait se retrouver sur la 867e ligne la raison pour laquelle je veux masquer des lignes (un peu long parcontre d'attendre la macro pour 1000 lignes mais je vais vivre avec).
Donc par quoi je dois remplacer tes cellule (A1-A2-B2)... Je suis assez débutante avec les macro, mais sache que j'apprécie vraiment beacoup ta précieuse aide...
Merci !