recherche et addition multicritére

  • Initiateur de la discussion Initiateur de la discussion pelucre
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pelucre

XLDnaute Nouveau
Salut,

J'ai excel 2003 et je viens de créer un super tableau de 10 colonnes et 7000 lignes sur une feuille

1er question

Sur une autre feuille, je voudrais qu'excel m'affiche tout les renseignements correspondant à une donnée qui se trouve dans la colonne 4.

Par exemple je demande le numéro 1250465 et excel m'affiche toute les lignes dans lesquelles apparait ce chiffre dans la colonne 4.

2éme question

je voudrais faire la somme des lignes qui remplisse de critères de sélection.

Par exemple : le chiffre 120 dans la colonne 2 et une date comprise entre le 01/01/2000 et le 31/12/2000 dans la colonne 5

Pour info je suis complémentement novice et j'attends grandement de votre aide.

En vous remerciant d'avance
 
Bonjour pelucre, le forum

Pour la question 1 tu peux t'inspirer de la pièce jointe ou une macro fait ce que tu demandes.

Par contre qu'entend-tu par faire la somme dans la question 2 ??

addition des 120 ou nombre de fois que l'on rencontre 120 ?

macro jointe :
Sub Bouton1_QuandClic()
Dim tablo As Variant
Dim tablores() As String
Dim x As Integer, i As Integer
Dim j As Byte

'on crée un tableau variant
tablo = Range('a1:j' & Range('j65536').End(xlUp).Row)
' a adapter
x = 1

'pour chasue ligne du tableau
For i = 1 To UBound(tablo)
   
'si la donnée ce trouvant en colonne 4 = 1250465 alors
   
If tablo(i, 4) = 1250465 Then
       
'on 'aggrandi' le tableau de résultat
       
ReDim Preserve tablores(1 To 10, 1 To x)
       
'on boucle pour récupérer les valeurs de la ligne
       
For j = 1 To 10
            tablores(j, x) = tablo(i, j)
       
Next j
        x = x + 1
   
End If
'prochaine ligne
Next i

'en feuille 2 on renvoi le tableau de résultat
Sheets('feuil2').Range('a1').Resize(UBound(tablores, 2), UBound(tablores, 1)) = Application.WorksheetFunction.Transpose(tablores)
End Sub

salut
[file name=Classeur2_20050829102237.zip size=10037]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20050829102237.zip[/file]
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
60
Réponses
3
Affichages
290
Réponses
6
Affichages
376
  • Question Question
Microsoft 365 Recherche V
Réponses
33
Affichages
1 K
Retour