XL 2016 Intersection colonnes et lignes

Seddiki_adz · 31 Juillet 2021

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 · 31 Juillet 2021

Bonjour à tous,

A essayer cette formule matricielle

VB:

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

ou avec sommeprod

Code:

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

JHA

Seddiki_adz · 31 Juillet 2021

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

JHA · 31 Juillet 2021

Bonjour à tous,

A essayer

JHA

Seddiki_adz · 31 Juillet 2021

JHA à dit:
Bonjour à tous,

A essayer

JHA

Bonsoir
comment supprimer les lignes vide?

job75 · 31 Juillet 2021

Bonsoir,

Seddiki_adz à dit:
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 · 31 Juillet 2021

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

job75 · 31 Juillet 2021

Montrez votre fichier.

Seddiki_adz · 31 Juillet 2021

job75 à dit:
Montrez votre fichier.

Seddiki_adz à dit:
Bonsoir
Si je complète le fichier jai des colonnes vides et des lignes vides

job75 · 31 Juillet 2021

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 · 31 Juillet 2021

job75 à dit:
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 · 31 Juillet 2021

Il ne faut pas supprimer les lignes mais les masquer.

Voyez le fichier joint et la macro du bouton :

VB:

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 · 31 Juillet 2021

M

job75 à dit:

Il ne faut pas supprimer les lignes mais les masquer.

Voyez le fichier joint et la macro du bouton :

VB:

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 · 31 Juillet 2021

Seddiki_adz à dit:
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 :

VB:

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 · 31 Juillet 2021

job75 à dit:

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 :

VB:

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

XL 2016 Intersection colonnes et lignes

Seddiki_adz

XLDnaute Impliqué

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Seddiki_adz

XLDnaute Impliqué

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

Seddiki_adz

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Seddiki_adz

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Seddiki_adz

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Seddiki_adz

XLDnaute Impliqué

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Seddiki_adz

XLDnaute Impliqué

job75

XLDnaute Barbatruc

Pièces jointes

Seddiki_adz

XLDnaute Impliqué

Discussions similaires