Discussion :

[phal2ip]

Bonjour

J'ai un tableau Excel, et je voudrais savoir comment je pourrais trouver, dans une colonne, une partie de la valeur d'une cellule au format date (jj/mm/aaaa) donc par exemple le mois (mm) puis inscrire une autre valeur dans la 5ème cases à droite.

Merci pour votre aide

[peaceandloveman01]

Bonjour,

Voici une petite solution simple mais efficace (testée):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For i = idebut To ifin
    If Month(Cells(i, colonne)) = mois Then
        Cells(i, colonne + 5) = info
    End If
Next i

idebut = ligne de début de recherche
ifin = ligne de fin de recherche
colonne = colonne de recherche
mois = mois recherché !! Attention: c'est un entier. La fonction Month() renvoi un entier compris en 1 et 12.
info = ce que tu veux mettre dans la cinqième colonne à droite

J'espère que cela t'aidera

Bonne journée !!

ps: N'oublie l'aide vba très utile parfois (touche F1).

[Gorfael]

Salut phal2ip et le forum

J'ai un tableau Excel, et je voudrais savoir comment je pourrais trouver, dans une colonne, une partie de la valeur d'une cellule au format date (jj/mm/aaaa) donc par exemple le mois (mm) puis inscrire une autre valeur dans la 5ème cases à droite.

Je suppose que c'est par VBA ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A1").Offset(0, 5) = Month(Range("A1")) & " = " & Format(Range("A1"), "mmmm")

Mettra "9 = septembre" en F1, si A1 : =Aujoudhui()
A+

[phal2ip]

Super
ça marche super bien
merci pour votre aide mais maintenant j'ai un autre souci....

Dans un ComboBox, dans la propriété RowSource je voudrais y mettre 2 colonnes accolées de quelques lignes.

J'ai essayé cela :
Element.RowSource = "$A$2:$A$17" & "$B$2:$B$17"

Et cela
Element.RowSource = "$A$2:$B$17"

Mais rien n'y fait cela ne veut pas…

[AlainTech]

Ta première question étant résolue, veux-tu bien cliquer sur le bouton , en bas de discussion et créer une nouvelle discussion pour ton nouveau problème?

Merci