XL 2016 Intersection colonnes et lignes

[Seddiki_adz]

Bonjour
j'ai besoin d'aide
J'ai un classeur comprend deux feuils
Feuil1 comprend trois colonnes A,B,C
Feuil2 : la colonne A et ligne B
L'intersection de colonne A et ligne B donne la valeur C
Merci

 

[JHA]

Bonjour à tous,

A essayer cette formule matricielle

=SIERREUR(INDEX(NC;EQUIV($A2&B$1;J&M;0));"-")

ou avec sommeprod

=SOMMEPROD((($A19=J)*(B$1=M)*NC))

JHA

 

[Seddiki_adz]

Merci
puis si possible j'ai une autre question
Si j'ajoute une condition D par une liste déroulante feuil2 en j

 

[JHA]

Bonjour à tous,

A essayer

JHA

 

[Seddiki_adz]

Bonjour à tous,

A essayer

JHA

Bonsoir
comment supprimer les lignes vide?

 

[job75]

Bonsoir,

comment supprimer les lignes vide?

Sur les fichiers précédents il y a toujours une valeur en colonne A donc pas de ligne vide.

Que voulez-vous donc ?

A+

 

[Seddiki_adz]

Bonsoir
Si je complète le fichier jai des colonnes vides et des lignes vides

 

[job75]

Montrez votre fichier.

 

[Seddiki_adz]

Montrez votre fichier.

Bonsoir
Si je complète le fichier jai des colonnes vides et des lignes vides

 

[job75]

Bah comme je l'ai dit au post #6 il n'y a pas de ligne vide.

Montrez ce que vous voulez obtenir.

 

[Seddiki_adz]

Bah comme je l'ai dit au post #6 il n'y a pas de ligne vide.

Montrez ce que vous voulez obtenir.

Bonsoir
Si l'intersection et vide n’affiche les lignes et les colonnes
Voir feuil2

 

[job75]

Il ne faut pas supprimer les lignes mais les masquer.

Voyez le fichier joint et la macro du bouton :

Private Sub CommandButton1_Click() 'Masquer ou Afficher
Dim test As Boolean, r As Range
test = CommandButton1.Caption = "Masquer"
Application.ScreenUpdating = False
For Each r In [B2:G15,B19:G32].Rows 'plages à adapter
    r.Hidden = test And Application.Sum(r) = 0
Next
CommandButton1.Caption = IIf(test, "Afficher", "Masquer")
End Sub

 

[Seddiki_adz]

M

Il ne faut pas supprimer les lignes mais les masquer.

Voyez le fichier joint et la macro du bouton :

Private Sub CommandButton1_Click() 'Masquer ou Afficher
Dim test As Boolean, r As Range
test = CommandButton1.Caption = "Masquer"
Application.ScreenUpdating = False
For Each r In [B2:G15,B19:G32].Rows 'plages à adapter
    r.Hidden = test And Application.Sum(r) = 0
Next
CommandButton1.Caption = IIf(test, "Afficher", "Masquer")
End Sub

Merci
EN peut masquer les colonnes vides ?
j'ai triuver ce code

Option Compare Text
Sub Masquer()
Dim Scope()
Scope = Array("stock initial", "entrees", "sorties", "stock", "mini", "état de stock")
nrows = ActiveSheet.UsedRange.Rows.Count
For Each Column In Columns
If IsInArray(Column.Cells(1), Scope) Then
If WorksheetFunction.CountA(Column.Cells(3).Resize(nrows - 2)) = 0 Then Column.Hidden = True
End If
Next
End Sub
Function IsInArray(Objet As String, Crit())
IsInArray = True
For Each Elem In Crit
If Trim(Objet) = Elem Then Exit Function
Next
IsInArray = False
End Function
Sub Afficher_tout()
Sheets("stock").Columns.Hidden = False
End Sub

 

[job75]

EN peut masquer les colonnes vides ?

Cela ne paraît pas très judicieux car il peut y avoir des choses à ne pas masquer sous les colonnes.

Mais bon on peut toujours utiliser :

Private Sub CommandButton1_Click() 'Masquer ou Afficher
Dim test As Boolean, r As Range
test = CommandButton1.Caption = "Masquer"
Application.ScreenUpdating = False
For Each r In [B2:G15,B19:G32].Rows 'plages à adapter
    r.Hidden = test And Application.Sum(r) = 0
Next
For Each r In [B2:G15,B19:G32].Columns
    r.Hidden = test And Application.Sum(r) = 0
Next
CommandButton1.Caption = IIf(test, "Afficher", "Masquer")
End Sub

 

[Seddiki_adz]

Cela ne paraît pas très judicieux car il peut y avoir des choses à ne pas masquer sous les colonnes.

Mais bon on peut toujours utiliser :

Private Sub CommandButton1_Click() 'Masquer ou Afficher
Dim test As Boolean, r As Range
test = CommandButton1.Caption = "Masquer"
Application.ScreenUpdating = False
For Each r In [B2:G15,B19:G32].Rows 'plages à adapter
    r.Hidden = test And Application.Sum(r) = 0
Next
For Each r In [B2:G15,B19:G32].Columns
    r.Hidden = test And Application.Sum(r) = 0
Next
CommandButton1.Caption = IIf(test, "Afficher", "Masquer")
End Sub

Excellent
Merci bq