Coorection code afficher masquer selon le nombre

chaelie2015 · 24 Juillet 2015

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

VB:

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 · 24 Juillet 2015

Re : Coorection code afficher masquer selon le nombre

re
ci joint fichier teste
Salutations

chaelie2015 · 24 Juillet 2015

Re : Coorection code afficher masquer selon le nombre

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

Ilino · 24 Juillet 2015

Re : Coorection code afficher masquer selon le nombre

Bonsoir CHAELIE
Essayez ceci

Code:

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 · 24 Juillet 2015

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

Coorection code afficher masquer selon le nombre

chaelie2015

XLDnaute Accro

chaelie2015

XLDnaute Accro

Pièces jointes

chaelie2015

XLDnaute Accro

Ilino

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires