Coorection code afficher masquer selon le nombre

[chaelie2015]

Bonjour Forum
J’ai utilisé ce code pour afficher ou masquer les lignes selon le chiffre de la cellule M1

If R.Address = "$M$1" Then
………….
Rows("4:13").Hidden = 1
    If R <> "" And IsNumeric(R) Then Rows("3:" & 3 + Int(R)).Hidden = 0
Rows("642:651").Hidden = 1
    If R <> "" And IsNumeric(R) Then Rows("641:" & 641 + Int(R)).Hidden = 0
End If

Le 1er TAB est de 4eme ligne jusqu’’a 13 le code fonctionne parfaitement
Le 2eme tableau dans la même feuille de 642 – 651 le code fonctionne parfaitement
Mais je souhaite démarrer l'affichage du tableau 2 de la ligne 637-642 et 652-655 si M1=1 et ainsi de suite si M1 =2 AFFICHER ligne 637-643 et 652-655

SALUTATION

 

[chaelie2015]

Re : Coorection code afficher masquer selon le nombre

re
ci joint fichier teste
Salutations

 

[chaelie2015]

Re : Coorection code afficher masquer selon le nombre

BONSOIR FORUM
EST CE QUE MON SOUCI A ETE BIEN POSE?
Salutations

 

[Ilino]

Re : Coorection code afficher masquer selon le nombre

Bonsoir CHAELIE
Essayez ceci

Private Sub Worksheet_Change(ByVal R As Range)
  
  If R.Address = "$M$1" Then
        
    Rows("4:13").Hidden = 1
    If R <> "" And IsNumeric(R) Then Rows("3:" & 3 + Int(R)).Hidden = 0
    
    Rows("652:655").Hidden = 1
    Rows("637:651").Hidden = 1
    If R <> "" And IsNumeric(R) Then Rows("637:" & 641 + Int(R)).Hidden = 0
    If R <> "" Then Rows("652:655").Hidden = 0
End If
End Sub

A+

 

[chaelie2015]

Re : Coorection code afficher masquer selon le nombre

BONSOIR ILINO
Merci pour la réponse ; ça fonctionné comme je veux C'est nickel
PBLM est RESOLU