remplir une ligne en fonction d'une colonne

[jeanmimi62]

Bonjour
pour les besoins de mon boulot,
je dois remplir une ligne en fonction des données d'une colonne d'un autre onglet
je vous joint un exemple
j'ai essayé mais je patauge lamentablement
merci de votre aide

 

[hoerwind]

Re : remplir une ligne en fonction d'une colonne

Bonjour,

Je ne comprends pas l'utilité des nombres en ligne 1 :
- des dates qui n'ont rien à voir avec la question ?
- le nombre de commandes ?

Dans le premier cas, en B2 :
=NB.SI(commande!$C$7:$C$15;A2)
formule à copier vers le bas et appliquer aux cellules le format Standard;; (pour ne pas afficher les 0)

Dans le deuxième cas, en B2 :
=(NB.SI(commande!$C$7:$C$15;A2)=B$1)*1
formule à copier vers le bas et vers la droite, et appliquer aux cellules le format Standard;; (pour ne pas afficher les 0)

 

[JNP]

Re : remplir une ligne en fonction d'une colonne

Bonjour JeanMimi62 🙂,
A condition de renommer ta feuille commande en commande01 et ainsi de suite pour toutes les feuilles du mois, en B2

=NB.SI(INDIRECT("commande"&TEXTE(COLONNES($A:A);"00")&"!C:C");$A2)

à recopier vers le bas et la droite 😛
Bon courage 😎
Ajout : Salut Hoerwind 🙂
Ajout 2 : Oui, c'est vrai qu'il n'y a pas besoin de Colonnes et qu'on peut supprimer Texte si tu les appelles commande1 et etc.

=NB.SI(INDIRECT("commande"&B$1&"!C:C");$A2)

 

[Robert]

Re : remplir une ligne en fonction d'une colonne

Bonjour Jeanmimi, bonjour le forum,

Pas sûr d'avoir bien compris, je te propose le code commenté ci-dessous appliqué à un CommandButton de la barre d'outils Boîte à outils Contrôles :

Private Sub CommandButton1_Click() 'bouton "Recap"
Dim col As Byte 'déclare la variable col (COLonne)
Dim li As Byte 'déclare la variable li (LIgne)
 
ActiveCell.Select 'enlève le focus au bouton
With Sheets("commande") 'prend en compte l'onglet "commande"
    col = CByte(Right(.Range("B1"), 2)) + 1 'définit la colonne col (converti les deux derniers caractères de B1 en byte + un)
    For Each cel In .Range("C7:C" & .Cells(Application.Rows.Count, 3).End(xlUp).Row) 'boucle sur toutes les cellules éditées cel de la colonne C (en partant de C7)
        If cel.Offset(0, 2).Value <> "" Then 'condition : si la cellule de la colonne E n'est pas vide
            li = Sheets("Recap").Columns(1).Find(cel.Value, , xlValues, xlWhole).Row 'définit la ligne li (recherche dans la colonne A de l'onglet "Recap" la valeur de la cellule)
            Sheets("Recap").Cells(li, col).Value = 1 'place 1 dans la cellule (li, col) de l'onglet "Recap"
        End If 'fin de la condition
    Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "commande"
End Sub

Le fichier :

[Édition]
Salur Hoerwind, JNP on s'est croisé.

 

[jeanmimi62]

Re : remplir une ligne en fonction d'une colonne

Merci à tous de votre aide oh combien précieuse