Contenu récent par deps

  1. D

    XL 2010 Imbriquer plusieurs select case et index/equiv

    Bonsoir Désolé de revenir vers vous mais j'ai réutilisé mon fichier ce soir , et un bug persiste dans la macro "calcul" la fonction S5= index(terrain!g:g; equiv(b2;terrain!e:e;0);0) traduite en vba par Range("S" & ligne) = Format(wf.Index(perfwod, wf.Match("WOD1" & Range("B" & ligne)...
  2. D

    XL 2010 Imbriquer plusieurs select case et index/equiv

    OK actuellement la solution n'est pas correcte par rapport au titre .
  3. D

    XL 2010 Imbriquer plusieurs select case et index/equiv

    Re salut j'avais oublié de mettre le fichier . le fichier fonctionne mais je vais tenter ta solution avec les concatenation de case pour apprendre. merci Deps
  4. D

    XL 2010 Imbriquer plusieurs select case et index/equiv

    Re salut c'est bon pour le rang j'avais fait la même erreur avec range et la virgule ! décidément, j'ai bien de peindre cet apres-midi, quand on revient, on a les yeux ouverts :) Deps
  5. D

    XL 2010 Imbriquer plusieurs select case et index/equiv

    Bonjour effectivement j'ai mélangé la virgule et le & entre cells(ligne,"S") et range ("S" & ligne) merci j'ai continué mes calculs et encore je m'arrache les cheveux il faut que toutes les lignes soient remplies pour calculer le rang puis le point bareme. donc j'ai recréé un for ligne /next...
  6. D

    XL 2010 Imbriquer plusieurs select case et index/equiv

    Bonjour Etant donné que le n° d'équipe est unique, il peut apparaitre que sur une des 3 feuilles (LF/LG/LM) cela fait un critere en moins et j'ai contourné les "case" j'ai ajouté dans la feuille "terrain' une colonne indwod qui permet d'éviter de chercher sur 2 criteres. mais là encore j'ai un...
  7. D

    XL 2010 Imbriquer plusieurs select case et index/equiv

    Bonsoir dans le fichier joint PERF.XLSM, j'ai une feuille "terrain" comportant des performances (colonne F) de plusieurs équipes (dossard equipe = colonne B) . Ces performances dépendent d'un "type d inscription" (colonne "A"), d'un N° de wod (colonne D) => La perf dépend de 2 Critères ...
  8. D

    XL 2010 [resolu] vba imbriquer concatenate et match

    Bonsoir ok comment clôturer un sujet ? Uniquement en ajoutant [resolu] au titre ? merci Deps
  9. D

    XL 2010 [resolu] vba imbriquer concatenate et match

    Bonjour dans le fichier joint PERF.XLSM, j'ai une feuille "terrain" avec en dernière colonne (F) des performances Ces performances dépendent d'un n° de wod (colonne D) je souhaiterais en cliquant sur le bouton calcul de la feuille "terrain" que la macro réalise selon la colonne A "type...
  10. D

    XL 2010 [resolu] vba imbriquer concatenate et match

    Salut excellent, ça fonctionne . la fonction droite(x) fonctionne sans argument "nb" et dans ce cas, vide=1, Par contre en vba il faut absolument ajouter le nbre de caractéres merci Deps
  11. D

    XL 2010 [resolu] vba imbriquer concatenate et match

    Salut j'ai mis le code 'calcul nb f encolonne P (16) Range("P" & ligne) = IIf(Right(Range("F" & ligne)) = "F", 1, 0) + IIf(Right(Range("I" & ligne)) = "F", 1, 0) + IIf(Right(Range("K" & ligne)) = "F", 1, 0) + IIf(Right(Range("M" & ligne)) = "F", 1, 0) 'calcul nb G en colonne...
  12. D

    XL 2010 [resolu] vba imbriquer concatenate et match

    Bonjour super je teste tout cela :) et j'apprends à chaque message encore merci deps
  13. D

    XL 2010 [resolu] vba imbriquer concatenate et match

    Bonsoir je galère avec les formules vba dans un autre fichier du même type je souhaitais en cells(ligne,16) calculer le nombre de filles la formule simple s'écrivant sans macro pour la ligne 6 =si (droite(F6) ="F"; 1;0)+si (droite(H6) ="F"; 1;0)+si (droite(J6) ="F"; 1;0)+si (droite(L6) ="F"...
  14. D

    XL 2010 [resolu] vba imbriquer concatenate et match

    Bonsoir super je vais tester. puis-je te contacter en mp? merci Deps
  15. D

    XL 2010 [resolu] vba imbriquer concatenate et match

    Bonsoir les 2 formules "match" fonctionnent bien si elles trouvent une solution à la recherche 'Cells(ligne, "B").Value = WF.Index(rang, WF.Match(Cells(ligne, "A") & 1, code, 0)) Cells(a, 2).Value = WorksheetFunction.Index(rang, WorksheetFunction.Match(Cells(a, 1) & 1, code, 0), 0)...