Help!!pb frustrant extraction vba excel
by
-
le père -
le père -
Bonjour,
J'ai un gros pb, et j'ai vraiment vraiment besoin d'aide!
Après extraction du mois et de l'année d'une date au format 10/10/11 09:09:09, j'écris une macro me permettant de calculer le nombre de fois qu'apparait janvier 2011 dans la nouvelle colonne créée.
Mais excel s'entête et me renvoyer la valeur 0 à chaque fois.
Je crois savoir d'où vient le pb ms je ne sais pas comment le règler: l'extraction se fait uniquement via un changement de format de ma date d'origine. Du coup lorsqu'il parcourt ma colonne créée, il ne lit pas la valeur apparente de la cellule, ms sa valeur d'origine
Voici mon code
Sub moisbis()
Dim p As Long
For p = 2 To Range("A65535").End(xlUp).Row
Range("AY" & p).FormulaLocal = Format(Range("L" & p), "mmmm/yyyy;@")
Next p
End Sub
L étant la colonne contenant mes dates de départ
AY celle dans laquelle je stocke mes nouvelles valeurs
NB: J'ai déjà essayé de faire
Range("AY" & p).FormulaLocal = Format(Month(Range("L" & p)), "mmmm") & " " &
year(Range("L" & p))
Mais ça bug!! il me renvoie des dates erronées
J'ai un gros pb, et j'ai vraiment vraiment besoin d'aide!
Après extraction du mois et de l'année d'une date au format 10/10/11 09:09:09, j'écris une macro me permettant de calculer le nombre de fois qu'apparait janvier 2011 dans la nouvelle colonne créée.
Mais excel s'entête et me renvoyer la valeur 0 à chaque fois.
Je crois savoir d'où vient le pb ms je ne sais pas comment le règler: l'extraction se fait uniquement via un changement de format de ma date d'origine. Du coup lorsqu'il parcourt ma colonne créée, il ne lit pas la valeur apparente de la cellule, ms sa valeur d'origine
Voici mon code
Sub moisbis()
Dim p As Long
For p = 2 To Range("A65535").End(xlUp).Row
Range("AY" & p).FormulaLocal = Format(Range("L" & p), "mmmm/yyyy;@")
Next p
End Sub
L étant la colonne contenant mes dates de départ
AY celle dans laquelle je stocke mes nouvelles valeurs
NB: J'ai déjà essayé de faire
Range("AY" & p).FormulaLocal = Format(Month(Range("L" & p)), "mmmm") & " " &
year(Range("L" & p))
Mais ça bug!! il me renvoie des dates erronées
A voir également:
- Help!!pb frustrant extraction vba excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Déplacer colonne excel - Guide
1 réponse
Bonjour
Chez moi ça marche en remplaçant
pour forcer Excel à prendre le format texte, sinon il s'obstine à remettre en forme le texte de la date
Chez moi ça marche en remplaçant
Range("AY" & p).FormulaLocal = Format(Range("L" & p), "mmmm/yyyy;@") par Range("B" & p).NumberFormat = "@"
Range("AY" & p).FormulaLocal = Format(Range("L" & p), "mmmm/yyyy")
pour forcer Excel à prendre le format texte, sinon il s'obstine à remettre en forme le texte de la date