Problème Diabolique pour les pros d'Excel !!!

bebe92600

XLDnaute Nouveau
Bonjour à tous ceux qui Maîtisent Excel.

J'ai là un problème qui requiert de fortes compétences au logiciel Excel. Alors si vous aimez les défis [boom] , vous pourriez en plus me permettre de ne plus à avoir à travailler le dimanche matin...à votre bon coeur m'sieurs dames

Pour une meilleur compréhension, vous pouvez télécherger le doc Excel en question ici : http://cjoint.com/?bgxdj4aqHW

Bon on y va...

1- je souhaite que lorsque sur une même ligne (entre la N°10 et N°1000) il y a :
- en colonne B de la feuille 'Devis' le texte 'prospection'
- en colonne C de la feuille 'Devis' le texte 'Décembre'
- en colonne E de la feuille 'Devis' le texte 'WCB GC'
Alors, il faut écrire 1 dans la cellule B34 de la feuille 'Décembre'. Le but est de calculer le nombre de ligne de la feuille devis, où se trouve, sur la même ligne, ces trois textes.

2- je souhaite que lorsque sur une même ligne (entre la N°4 et N°20) il y a :
- en colonne B de la feuille 'Décembre' le texte 'prospection'
- en colonne E de la feuille 'Décembre' le texte 'WCB GC'
Alors, il faut écrire 1 dans la cellule C34 de la feuille 'Décembre'. Le but est de calculer le nombre de ligne de la feuille devis, où se trouve, sur la même ligne, ces trois textes.


Merci d'avoir déjà essayé de comprendre.[bigsmile]
 

pascal21

XLDnaute Barbatruc
re
et si avec tout ça tu n'as pas de réponse
pca, ma messagerie, ici maintenant
par contre ic tu aurais du éviter l'emploi de cjoint.com. ils n'aiment pas ça
je vais essayer de comprendre
mais tu sais galopin n'a pas de réponse à ton problème je ne pense pas pouvoir t'aider
 

Hervé

XLDnaute Barbatruc
Bonsoir bebe92600, pascal, brico, tata jeannine

Pour ta premiere question, peut etre ceci :


Sub Bouton1_QuandClic()
Dim i As Integer

Sheets('Déc').Range('b34').Clear

With Sheets('Devis')
       
For i = 10 To 1000
               
If .Cells(i, 2) = 'Prospection' And .Cells(i, 3) = 'Décembre' And .Cells(i, 5) = 'WCB GC' Then
                        Sheets('Déc').Range('b34') = Sheets('Déc').Range('b34') + 1
               
End If
       
Next i
End With
               
               
End Sub


pour la deuxième, je te laisse adapter le premier code.

salut
 

Hervé

XLDnaute Barbatruc
re bebe

en piece jointe ton fichier modifié.

pour une question de taille, j'ai dû supprimer des feuilles.

la prochaine fois, essaye de nous faire passer des classeurs sans mot de passe pour les protections. :)

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

Pièces jointes

  • bebe.zip
    23.3 KB · Affichages: 15
M

Mytå

Guest
Bonsoir le Forum

En Formule

en B34 =SOMMEPROD(N(Devis!B10:B1000='Prospection')*(Devis!C10:C1000='Décembre')*(Devis!E10:E1000='WCB GC'))

et C34 =SOMMEPROD(N(Déc!B4:B20='Prospection')*(Déc!E4:E20='WCB GC'))

Mytå

Message édité par: Mytå, à: 07/01/2006 01:45
 

bebe92600

XLDnaute Nouveau
Je vais quand même apprendre les macros...enfin après avoir appris les formules...soit, dans 1 an ou 2 :)
En tout cas, c'est plaisant de trouver des internautes sympas qui partagent leurs connaissances.
J'avais jamais utilisé les forums avant jeudi, mais là je crois que je vais approfondir le sujet.
en tout cas merci encore à tous les deux
 

Discussions similaires

Réponses
3
Affichages
303

Statistiques des forums

Discussions
312 326
Messages
2 087 313
Membres
103 513
dernier inscrit
adel.01.01.80.19