selection des lignes a partir d' un critere

[PHILIP]

Bonjour à tous ,
je bute sur un probleme depuis 2 jours
j'ai un fichier contenant des données diverses notamment des codes postaux en colonne C . En N j'ai une plage dénommée DHL48 qui contient également des codes postaux je voudrais trouver une formule qui me permette de selectionner toutes les lignes qui contiennent dans C un des codes postaux défini dans la plage N. (a cela je rajouterai une formule sommeprod qui me permettra de calculer le pourcentage des commandes livrées à temps)
Pourriez vous m'aider ?

 

[Jocelyn]

Re : selection des lignes a partir d' un critere

Bonjour le Forum,
Bonjour PHILIP,

Il faudrait passer par du VBA mais je suis trop nul alors en attendant une solution

En colonne M une formule pour renvoyer 1 si en colonne c il y a un code contenu dans DHL48 ensuite un filtre automatique sur la ligne 1 et il reste a choisir dans le filtre de la colonne M la valeur 1

Jocelyn

 

[kjin]

Re : selection des lignes a partir d' un critere

Bonjour,
Pas compris la même chose je crois, parce que sélectionner OK mais pour quoi faire ?
En O3, pour des délais <=1
=SOMMEPROD(($C$3:$C$129=N3)*($K$3:$K$129<=1))
en veillant à mettre les colonnes C et N au format texte.

Edit : Pense aussi à répondre quand tu as le temps https://www.excel-downloads.com/threads/pourcentage-probleme-de-formule.104177/
A+
kjin

 

[PHILIP]

Re : selection des lignes a partir d' un critere

Excuse moi Kjin mais quand j'ai eu ta réponse il était 1 heure passé et j'étais allé me coucher toutefois sache que je t'ai remercieé lors d'une autre question le lendemain
en tous cas merci pour ton aide

 

[Robert]

Re : selection des lignes a partir d' un critere

Bonjour Philip, Jocelyn, Kjin, bonjour le forum,

Une proposition VBA pour sélectionner les lignes :

Sub Macro2()
 
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel1 As Range 'déclare la variable cel1 (CELulle 1)
Dim cel2 As Range 'déclare la variable cel2 (CELulle 2)
Dim lis() As Integer 'déclare le tableau de variables lis (LIgneS)
Dim x As Integer 'déclare la variable x
 
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
 
    Set pl = .Range("N3:N" & .Range("N65536").End(xlUp).Row) 'définit la variable pl
    For Each cel1 In pl 'boucle 1 : sur toutes les cellules de la plage pl
        'boucle 2 : sur toutes les cellules éditées de la colonne C
        For Each cel2 In .Range("C3:C" & .Range("C65536").End(xlUp).Row)
            If cel1.Value = cel2.Value Then 'condition : si les cellules sont identiques
                ReDim Preserve lis(x) 'redimensionne le tableau de variable lis
                lis(x) = cel2.Row 'définit la valeur de la variable (le numéro de ligne de la cellule cel2)
                x = x + 1 'redéfinit la variable x
            End If 'fin de la condition
        Next cel2 'prochaine cellule éditée de la colonne C
    Next cel1 'prochaine cellule de la plage pl
    Rows(lis(0)).Select 'sélectionne la première ligne trouvée
    For x = 1 To UBound(lis, 1) 'boucle sur toutes les lignes trouovée (moins la première)
        Application.Union(Selection, Rows(lis(x))).Select 'rajoute la ligne à la sélection
    Next x 'prochaine ligne
 
End With 'fin de la prise en compte de l'onglet "Feuil1"
 
End Sub

 

[kjin]

Re : selection des lignes a partir d' un critere

Re,

...sache que je t'ai remercieé lors d'une autre question le lendemain

Ma remarque ne portait pas sur l'attente d'un quelconque remerciement, mais sur le fait qu' il n'y a rien de plus agaçant que de ne pas savoir si le pb a été résolu ou non parce que l'interlocuteur n'a pas daigné répondre, c'est courant sur le forum, je le déplore mais c'est comme ça. Alors de temps en temps je le fais savoir.
Ceci étant dit, tu n'as pas répondu aux solutions proposées 😀
A+
kjin