Comment utiliser un "Select case" pour gérer des dates

[zbig]

Bonjour

Dans ma feuille menu j'ai un tableau nommé tab_categ dans les cellules (f20:g25)

DATE DE NAISSANCE CATEGORIE sportive
01/01/1980 s
01/01/1992 J
01/01/1994 C
01/01/1996 M
01/01/1998 B
si vide ""

Dans ma feuille listing
La 1ère ligne est consacrée au nom des champs
les infos sont à partir de la ligne 2
en colonne h: date de naissance
en colonne k: macro = concatenation (choix du tableau par rapport à la date de naissance en h + la valeur de la cellule I)

faire une boucle, tant que la cellule dans colonne A n'est pas vide, faire la macro.



a la place d'un select case , cela peut etre une recherchev

J'ai créé ça mais il n'y a pas la bouche
Sub recherche_categ()
'
' recherche_categ Macro
' Macro enregistrée le 30/11/2010 par zb
'
'
ActiveCell.FormulaR1C1 = _
"=CONCATENATE(VLOOKUP(RC[-2],TAB_CATEG,2) &Listing!RC[-1])"
End Sub

merci
Zbig

 

[zbig]

Re : Comment utiliser un "Select case" pour gérer des dates

J'ai tenté ça mais ça ne fonctionne pas

Sub recherche_categ()
'
' recherche_categ Macro
' Macro enregistrée le 30/11/2010 par zb
'
'
With Sheets("listing")
'On trouve la dernière cellule remplie en bas de la colonne A
LstRow = .Range("A" & Rows.Count).End(xlUp).Row
'La plage l2:l dernière ligne prend la formule
.Range("k2:k" & LstRow).FormulaLocal = "=CONCATENATE(VLOOKUP(RC[-2],menu!f20:g25,2) &Listing!RC[-1])"
'Arret de l'utilisation de la feuille listing
End With

End Sub

 

[mth]

Re : Comment utiliser un "Select case" pour gérer des dates

Bonjour zbig,

Il serait plus facile de t'aider si tu joignais un extrait de ton fichier, accompagné de quelques explications sur ce que tu veux obtenir ...

Bon après-midi,

mth

 

[Efgé]

Re : Comment utiliser un "Select case" pour gérer des dates

Re zbig,
Dans le cas présent, vous ne pouvez pas utiliser "FormulaLocal". Il serait préférable d'utiliser "Formula" puisque vous utiliser les version anglaises des formules.
D'autre part, à mon avis, le mélange de référence de type "menu!f20:g25" et de type "RC[-2]" ne doit pas faire bon ménage.
Faite votre formule sur la feuille et utiliser FormulaLocal pour la recopier par macro.
Cordialement

 

[zbig]

Re : Comment utiliser un "Select case" pour gérer des dates

bonsoir mth

voici le fichier
merci
zbig

 

[Efgé]

Re : Comment utiliser un "Select case" pour gérer des dates

Re, Bonjour mth 🙂,
Une proposition basée sur un principe que vous connaissez:

[COLOR=blue]Sub[/COLOR] recherchev_categ2()
[COLOR=green]'Avec la feuille listing[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("listing")
  [COLOR=green] 'On trouve la dernière cellule remplie en bas de la colonne A[/COLOR]
    LstRow = .Range("A" & Rows.Count).End(xlUp).Row
  [COLOR=green] 'La plage J2:J dernière ligne prend la formule[/COLOR]
    .Range("J2:J" & LstRow).FormulaLocal = "=CONCATENER(RECHERCHEV(H2;menu!F20:G25;2);listing!I2)"
[COLOR=green]'Arret de l'utilisation de la feuille listing[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[mth]

Re : Comment utiliser un "Select case" pour gérer des dates

re 🙂

Un petit essai avec ce code:

Sub recherchev_categ()
Dim i As Long
With Sheets("listing")
    For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
     .Cells(i, 10).FormulaR1C1 = _
        "=IF(ISNA(VLOOKUP(RC[-2],menu!R20C[-4]:R25C[-3],2)),"""",CONCATENATE(VLOOKUP(RC[-2],menu!R20C[-4]:R25C[-3],2),listing!RC[-1]))"
    Next i
End With
End Sub

Bon après-midi,

mth

Edit: oups .... 🙂 Bonjour Efgé 🙂

 

[zbig]

Re : Comment utiliser un "Select case" pour gérer des dates

Bonsoir

merci à vous 2 pour les 2 méthodes.

Une des méthodes ne fonctionnait pas sur toutes les cellules, tandis que la 2e le faisait
j'ai donc utilisé celle qui le faisait tout le temps


merci

j'aurais encore besoin de vos aides si cela est possible
merci
Zbig

 

[Efgé]

Re : Comment utiliser un "Select case" pour gérer des dates

Re à tous et toutes 😉,
zbig, peut tu préciser la version qui pose problème...
Je ne vois pas de différence entre la version de mth et la mienne, à ceci près que mth gère les formules de type R1C1 (merci de l'exemple mth 🙂, je suis vraiment très moyen en formule, alors les version R1C1...)
A re relire zbig.
Cordialement

 

[zbig]

Re : Comment utiliser un "Select case" pour gérer des dates

Bonsoir

[

j'ai mis les 2 macros en pages listing
la macro fonctionne sur 3 lignes puis erreur.

quelqu'un aurait-il une idée pour la suite de l'application "création d'une série standart"
en page série?

merci
Zbig

 

[zbig]

Re : Comment utiliser un "Select case" pour gérer des dates

Ci joint un fichier moins lourd pour la suite de la création

merci de votre aide
Zbig

 

[Efgé]

Re : Comment utiliser un "Select case" pour gérer des dates

Re
Essai

[COLOR=blue]Sub[/COLOR] recherchev_categ3()
[COLOR=green]'Avec la feuille listing[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("listing")
  [COLOR=green] 'On trouve la dernière cellule remplie en bas de la colonne A[/COLOR]
    LstRow = .Range("A" & Rows.Count).End(xlUp).Row
  [COLOR=green] 'La plage J2:J dernière ligne prend la formule[/COLOR]
    .Range("J2:J" & LstRow).FormulaLocal = "=CONCATENER(RECHERCHEV(H2;menu![COLOR=red][B]$[/B][/COLOR]F[COLOR=red][B]$[/B][/COLOR]20:[COLOR=red][B]$[/B][/COLOR]G[COLOR=red][B]$[/B][/COLOR]25;2);listing![COLOR=red][B]$[/B][/COLOR]I2)"
[COLOR=green]'Arret de l'utilisation de la feuille listing[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]

Cordialement

 

[zbig]

Re : Comment utiliser un "Select case" pour gérer des dates

Bonsoir

ça fonctionne maintenant
Merci
Zbig

 

[mth]

Re : Comment utiliser un "Select case" pour gérer des dates

Bonjour à tous 🙂

Oui effectivement, c'est bien une plage figée qu'il faut (et bien plus lisible avec les noms de cellules en clair comme proposé par Efgé au lieu des menu!R20C[-4]:R25C[-3] un peu barbares que j'avais mis 🙂 )

Pour la suite, le mieux zbig est que tu restes sur le fil que tu as ouvert ici:
https://www.excel-downloads.com/thr...ne-serie-standart-avec-incrementation.153914/

Bonne soirée à tous,

mth

 

[zbig]

Re : Comment utiliser un "Select case" pour gérer des dates

Bonsoir

ok, mais je n'ai pas envie de perdre vos compétences 🙂
Zbig