Bonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" a écrit dans le message de news:
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: AD2A03EC-F1BE-4EC6-9E38-B2BB5A764493@microsoft.com...
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" a écrit dans le message de news:
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" a écrit dans le message de news:
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: AD2A03EC-F1BE-4EC6-9E38-B2BB5A764493@microsoft.com...
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" a écrit dans le message de news:
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
Si tu veux vérifier que l'année d'une date dans une cellule
est égale à une valeur numérique affichée dans une autre cellule,
tu peux utiliser ceci :
A1 contient une date
B1 contient une valeur numérique 2005
If Year(Range("A1")) = Range("B1").Value Then
Il faut se souvenir que le format n'a rien à voir avec le contenu des cellules.
Si tu utilises l'opérateur "=" les membres de chaque côté de l'équation se
doivent d'être comparable et "semblable" n'est pas suffisant, ils doivent
être égales, y compris la casse le cas échéant ....!
Suggestions : Dans une boucle, il est préférable d'utiliser une variable
que de demander à excel de réévaluer l'expression à chaque fois...
l'exécution du code est plus rapide comme ceci :
Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
Salutations!
"Denys" a écrit dans le message de news:
Bonjour Denis,
Merci pour ta réponse, sauf que ça ne solutionne pas mon problème pour la
raison suivante: les informations contenues dans cette colonne proviennent de
deux sources différentes, dont l'une n'est pas une plateforme Microsoft....
de cette source, les informations aparaissent donc comme 2005 et dans la
cellule, et dans la barre de formule; quant aux autres infos elles
apparaissent donc comme étant une date et formatées comme telles.
Donc, lorsque je donne l'instruction suivante:
Sub Addition()
With Worksheets("Recap Workpage")
Application.ScreenUpdating = False
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
Cells(i - 1, 27).Value = Cells(i - 1, 27).Value + Cells(i, 27).Value
Rows(i).Delete
End If
C'est-à-dire d'additionner les valeurs en colonne AA si celles en colonne C
(une ligne au-dessus) sont semblables, alors Excel ne reconnait pas 2005
comme étant semblable à 2005/03/31.... d'ou mon dilemme...
Merci
DenysBonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" a écrit dans le message de news:
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
Si tu veux vérifier que l'année d'une date dans une cellule
est égale à une valeur numérique affichée dans une autre cellule,
tu peux utiliser ceci :
A1 contient une date
B1 contient une valeur numérique 2005
If Year(Range("A1")) = Range("B1").Value Then
Il faut se souvenir que le format n'a rien à voir avec le contenu des cellules.
Si tu utilises l'opérateur "=" les membres de chaque côté de l'équation se
doivent d'être comparable et "semblable" n'est pas suffisant, ils doivent
être égales, y compris la casse le cas échéant ....!
Suggestions : Dans une boucle, il est préférable d'utiliser une variable
que de demander à excel de réévaluer l'expression à chaque fois...
l'exécution du code est plus rapide comme ceci :
Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: 18EC2AD7-9A7A-492C-BC2C-49D091D59730@microsoft.com...
Bonjour Denis,
Merci pour ta réponse, sauf que ça ne solutionne pas mon problème pour la
raison suivante: les informations contenues dans cette colonne proviennent de
deux sources différentes, dont l'une n'est pas une plateforme Microsoft....
de cette source, les informations aparaissent donc comme 2005 et dans la
cellule, et dans la barre de formule; quant aux autres infos elles
apparaissent donc comme étant une date et formatées comme telles.
Donc, lorsque je donne l'instruction suivante:
Sub Addition()
With Worksheets("Recap Workpage")
Application.ScreenUpdating = False
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
Cells(i - 1, 27).Value = Cells(i - 1, 27).Value + Cells(i, 27).Value
Rows(i).Delete
End If
C'est-à-dire d'additionner les valeurs en colonne AA si celles en colonne C
(une ligne au-dessus) sont semblables, alors Excel ne reconnait pas 2005
comme étant semblable à 2005/03/31.... d'ou mon dilemme...
Merci
Denys
Bonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: AD2A03EC-F1BE-4EC6-9E38-B2BB5A764493@microsoft.com...
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
Si tu veux vérifier que l'année d'une date dans une cellule
est égale à une valeur numérique affichée dans une autre cellule,
tu peux utiliser ceci :
A1 contient une date
B1 contient une valeur numérique 2005
If Year(Range("A1")) = Range("B1").Value Then
Il faut se souvenir que le format n'a rien à voir avec le contenu des cellules.
Si tu utilises l'opérateur "=" les membres de chaque côté de l'équation se
doivent d'être comparable et "semblable" n'est pas suffisant, ils doivent
être égales, y compris la casse le cas échéant ....!
Suggestions : Dans une boucle, il est préférable d'utiliser une variable
que de demander à excel de réévaluer l'expression à chaque fois...
l'exécution du code est plus rapide comme ceci :
Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
Salutations!
"Denys" a écrit dans le message de news:
Bonjour Denis,
Merci pour ta réponse, sauf que ça ne solutionne pas mon problème pour la
raison suivante: les informations contenues dans cette colonne proviennent de
deux sources différentes, dont l'une n'est pas une plateforme Microsoft....
de cette source, les informations aparaissent donc comme 2005 et dans la
cellule, et dans la barre de formule; quant aux autres infos elles
apparaissent donc comme étant une date et formatées comme telles.
Donc, lorsque je donne l'instruction suivante:
Sub Addition()
With Worksheets("Recap Workpage")
Application.ScreenUpdating = False
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
Cells(i - 1, 27).Value = Cells(i - 1, 27).Value + Cells(i, 27).Value
Rows(i).Delete
End If
C'est-à-dire d'additionner les valeurs en colonne AA si celles en colonne C
(une ligne au-dessus) sont semblables, alors Excel ne reconnait pas 2005
comme étant semblable à 2005/03/31.... d'ou mon dilemme...
Merci
DenysBonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" a écrit dans le message de news:
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
Si tu veux vérifier que l'année d'une date dans une cellule
est égale à une valeur numérique affichée dans une autre cellule,
tu peux utiliser ceci :
A1 contient une date
B1 contient une valeur numérique 2005
If Year(Range("A1")) = Range("B1").Value Then
Il faut se souvenir que le format n'a rien à voir avec le contenu des cellules.
Si tu utilises l'opérateur "=" les membres de chaque côté de l'équation se
doivent d'être comparable et "semblable" n'est pas suffisant, ils doivent
être égales, y compris la casse le cas échéant ....!
Suggestions : Dans une boucle, il est préférable d'utiliser une variable
que de demander à excel de réévaluer l'expression à chaque fois...
l'exécution du code est plus rapide comme ceci :
Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
Salutations!
"Denys" a écrit dans le message de news:
Bonjour Denis,
Merci pour ta réponse, sauf que ça ne solutionne pas mon problème pour la
raison suivante: les informations contenues dans cette colonne proviennent de
deux sources différentes, dont l'une n'est pas une plateforme Microsoft....
de cette source, les informations aparaissent donc comme 2005 et dans la
cellule, et dans la barre de formule; quant aux autres infos elles
apparaissent donc comme étant une date et formatées comme telles.
Donc, lorsque je donne l'instruction suivante:
Sub Addition()
With Worksheets("Recap Workpage")
Application.ScreenUpdating = False
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
Cells(i - 1, 27).Value = Cells(i - 1, 27).Value + Cells(i, 27).Value
Rows(i).Delete
End If
C'est-à-dire d'additionner les valeurs en colonne AA si celles en colonne C
(une ligne au-dessus) sont semblables, alors Excel ne reconnait pas 2005
comme étant semblable à 2005/03/31.... d'ou mon dilemme...
Merci
DenysBonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" a écrit dans le message de news:
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
Si tu veux vérifier que l'année d'une date dans une cellule
est égale à une valeur numérique affichée dans une autre cellule,
tu peux utiliser ceci :
A1 contient une date
B1 contient une valeur numérique 2005
If Year(Range("A1")) = Range("B1").Value Then
Il faut se souvenir que le format n'a rien à voir avec le contenu des cellules.
Si tu utilises l'opérateur "=" les membres de chaque côté de l'équation se
doivent d'être comparable et "semblable" n'est pas suffisant, ils doivent
être égales, y compris la casse le cas échéant ....!
Suggestions : Dans une boucle, il est préférable d'utiliser une variable
que de demander à excel de réévaluer l'expression à chaque fois...
l'exécution du code est plus rapide comme ceci :
Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: 18EC2AD7-9A7A-492C-BC2C-49D091D59730@microsoft.com...
Bonjour Denis,
Merci pour ta réponse, sauf que ça ne solutionne pas mon problème pour la
raison suivante: les informations contenues dans cette colonne proviennent de
deux sources différentes, dont l'une n'est pas une plateforme Microsoft....
de cette source, les informations aparaissent donc comme 2005 et dans la
cellule, et dans la barre de formule; quant aux autres infos elles
apparaissent donc comme étant une date et formatées comme telles.
Donc, lorsque je donne l'instruction suivante:
Sub Addition()
With Worksheets("Recap Workpage")
Application.ScreenUpdating = False
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
Cells(i - 1, 27).Value = Cells(i - 1, 27).Value + Cells(i, 27).Value
Rows(i).Delete
End If
C'est-à-dire d'additionner les valeurs en colonne AA si celles en colonne C
(une ligne au-dessus) sont semblables, alors Excel ne reconnait pas 2005
comme étant semblable à 2005/03/31.... d'ou mon dilemme...
Merci
Denys
Bonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: AD2A03EC-F1BE-4EC6-9E38-B2BB5A764493@microsoft.com...
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
Si tu veux vérifier que l'année d'une date dans une cellule
est égale à une valeur numérique affichée dans une autre cellule,
tu peux utiliser ceci :
A1 contient une date
B1 contient une valeur numérique 2005
If Year(Range("A1")) = Range("B1").Value Then
Il faut se souvenir que le format n'a rien à voir avec le contenu des cellules.
Si tu utilises l'opérateur "=" les membres de chaque côté de l'équation se
doivent d'être comparable et "semblable" n'est pas suffisant, ils doivent
être égales, y compris la casse le cas échéant ....!
Suggestions : Dans une boucle, il est préférable d'utiliser une variable
que de demander à excel de réévaluer l'expression à chaque fois...
l'exécution du code est plus rapide comme ceci :
Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
Salutations!
"Denys" a écrit dans le message de news:
Bonjour Denis,
Merci pour ta réponse, sauf que ça ne solutionne pas mon problème pour la
raison suivante: les informations contenues dans cette colonne proviennent de
deux sources différentes, dont l'une n'est pas une plateforme Microsoft....
de cette source, les informations aparaissent donc comme 2005 et dans la
cellule, et dans la barre de formule; quant aux autres infos elles
apparaissent donc comme étant une date et formatées comme telles.
Donc, lorsque je donne l'instruction suivante:
Sub Addition()
With Worksheets("Recap Workpage")
Application.ScreenUpdating = False
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
Cells(i - 1, 27).Value = Cells(i - 1, 27).Value + Cells(i, 27).Value
Rows(i).Delete
End If
C'est-à-dire d'additionner les valeurs en colonne AA si celles en colonne C
(une ligne au-dessus) sont semblables, alors Excel ne reconnait pas 2005
comme étant semblable à 2005/03/31.... d'ou mon dilemme...
Merci
DenysBonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" a écrit dans le message de news:
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
Je n'ai pas vu ta feuille de données, mais si ta plage est "très grande",
il faut voir si l'utilisation d'un filtre automatique ou d'un filtre élaboré
est applicable... la vitesse s'exécution n'est pas comparable !
Salutations!
"Denys" a écrit dans le message de news:
Bonjour Denis,
Merci beaucoup encore une fois, et spécialement pour le truc de la
boucle.... effectivement, ça va beaucoup plus vite....
Une idée comme ça... plutôt que de convertir les dates en "texte", je vais
faire le contraire.... If A1.value = 2005 then A1.value = Date(A1,1,1)
Ensuite j'éliminerai les cellules qui ont la même année comme tu me le
suggérais:
If Year(Cells(i, 3).Value) = Cells(i - 1, 3).Value then etc....
Merci encore et bonne journée
DenysBonjour Denys,
Si tu veux vérifier que l'année d'une date dans une cellule
est égale à une valeur numérique affichée dans une autre cellule,
tu peux utiliser ceci :
A1 contient une date
B1 contient une valeur numérique 2005
If Year(Range("A1")) = Range("B1").Value Then
Il faut se souvenir que le format n'a rien à voir avec le contenu des cellules.
Si tu utilises l'opérateur "=" les membres de chaque côté de l'équation se
doivent d'être comparable et "semblable" n'est pas suffisant, ils doivent
être égales, y compris la casse le cas échéant ....!
Suggestions : Dans une boucle, il est préférable d'utiliser une variable
que de demander à excel de réévaluer l'expression à chaque fois...
l'exécution du code est plus rapide comme ceci :
Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
Salutations!
"Denys" a écrit dans le message de news:
Bonjour Denis,
Merci pour ta réponse, sauf que ça ne solutionne pas mon problème pour la
raison suivante: les informations contenues dans cette colonne proviennent de
deux sources différentes, dont l'une n'est pas une plateforme Microsoft....
de cette source, les informations aparaissent donc comme 2005 et dans la
cellule, et dans la barre de formule; quant aux autres infos elles
apparaissent donc comme étant une date et formatées comme telles.
Donc, lorsque je donne l'instruction suivante:
Sub Addition()
With Worksheets("Recap Workpage")
Application.ScreenUpdating = False
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
Cells(i - 1, 27).Value = Cells(i - 1, 27).Value + Cells(i, 27).Value
Rows(i).Delete
End If
C'est-à-dire d'additionner les valeurs en colonne AA si celles en colonne C
(une ligne au-dessus) sont semblables, alors Excel ne reconnait pas 2005
comme étant semblable à 2005/03/31.... d'ou mon dilemme...
Merci
DenysBonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" a écrit dans le message de news:
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
Je n'ai pas vu ta feuille de données, mais si ta plage est "très grande",
il faut voir si l'utilisation d'un filtre automatique ou d'un filtre élaboré
est applicable... la vitesse s'exécution n'est pas comparable !
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: 9D0B2A27-42E6-4923-9388-B92EACCC462C@microsoft.com...
Bonjour Denis,
Merci beaucoup encore une fois, et spécialement pour le truc de la
boucle.... effectivement, ça va beaucoup plus vite....
Une idée comme ça... plutôt que de convertir les dates en "texte", je vais
faire le contraire.... If A1.value = 2005 then A1.value = Date(A1,1,1)
Ensuite j'éliminerai les cellules qui ont la même année comme tu me le
suggérais:
If Year(Cells(i, 3).Value) = Cells(i - 1, 3).Value then etc....
Merci encore et bonne journée
Denys
Bonjour Denys,
Si tu veux vérifier que l'année d'une date dans une cellule
est égale à une valeur numérique affichée dans une autre cellule,
tu peux utiliser ceci :
A1 contient une date
B1 contient une valeur numérique 2005
If Year(Range("A1")) = Range("B1").Value Then
Il faut se souvenir que le format n'a rien à voir avec le contenu des cellules.
Si tu utilises l'opérateur "=" les membres de chaque côté de l'équation se
doivent d'être comparable et "semblable" n'est pas suffisant, ils doivent
être égales, y compris la casse le cas échéant ....!
Suggestions : Dans une boucle, il est préférable d'utiliser une variable
que de demander à excel de réévaluer l'expression à chaque fois...
l'exécution du code est plus rapide comme ceci :
Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: 18EC2AD7-9A7A-492C-BC2C-49D091D59730@microsoft.com...
Bonjour Denis,
Merci pour ta réponse, sauf que ça ne solutionne pas mon problème pour la
raison suivante: les informations contenues dans cette colonne proviennent de
deux sources différentes, dont l'une n'est pas une plateforme Microsoft....
de cette source, les informations aparaissent donc comme 2005 et dans la
cellule, et dans la barre de formule; quant aux autres infos elles
apparaissent donc comme étant une date et formatées comme telles.
Donc, lorsque je donne l'instruction suivante:
Sub Addition()
With Worksheets("Recap Workpage")
Application.ScreenUpdating = False
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
Cells(i - 1, 27).Value = Cells(i - 1, 27).Value + Cells(i, 27).Value
Rows(i).Delete
End If
C'est-à-dire d'additionner les valeurs en colonne AA si celles en colonne C
(une ligne au-dessus) sont semblables, alors Excel ne reconnait pas 2005
comme étant semblable à 2005/03/31.... d'ou mon dilemme...
Merci
Denys
Bonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" <Denys@discussions.microsoft.com> a écrit dans le message de news: AD2A03EC-F1BE-4EC6-9E38-B2BB5A764493@microsoft.com...
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
Bonjour Denys,
Je n'ai pas vu ta feuille de données, mais si ta plage est "très grande",
il faut voir si l'utilisation d'un filtre automatique ou d'un filtre élaboré
est applicable... la vitesse s'exécution n'est pas comparable !
Salutations!
"Denys" a écrit dans le message de news:
Bonjour Denis,
Merci beaucoup encore une fois, et spécialement pour le truc de la
boucle.... effectivement, ça va beaucoup plus vite....
Une idée comme ça... plutôt que de convertir les dates en "texte", je vais
faire le contraire.... If A1.value = 2005 then A1.value = Date(A1,1,1)
Ensuite j'éliminerai les cellules qui ont la même année comme tu me le
suggérais:
If Year(Cells(i, 3).Value) = Cells(i - 1, 3).Value then etc....
Merci encore et bonne journée
DenysBonjour Denys,
Si tu veux vérifier que l'année d'une date dans une cellule
est égale à une valeur numérique affichée dans une autre cellule,
tu peux utiliser ceci :
A1 contient une date
B1 contient une valeur numérique 2005
If Year(Range("A1")) = Range("B1").Value Then
Il faut se souvenir que le format n'a rien à voir avec le contenu des cellules.
Si tu utilises l'opérateur "=" les membres de chaque côté de l'équation se
doivent d'être comparable et "semblable" n'est pas suffisant, ils doivent
être égales, y compris la casse le cas échéant ....!
Suggestions : Dans une boucle, il est préférable d'utiliser une variable
que de demander à excel de réévaluer l'expression à chaque fois...
l'exécution du code est plus rapide comme ceci :
Dim i As Long, NbRow As Long
NbRow = Range("A65536").End(xlUp).Row
For i = NbRow To 2 Step -1
Salutations!
"Denys" a écrit dans le message de news:
Bonjour Denis,
Merci pour ta réponse, sauf que ça ne solutionne pas mon problème pour la
raison suivante: les informations contenues dans cette colonne proviennent de
deux sources différentes, dont l'une n'est pas une plateforme Microsoft....
de cette source, les informations aparaissent donc comme 2005 et dans la
cellule, et dans la barre de formule; quant aux autres infos elles
apparaissent donc comme étant une date et formatées comme telles.
Donc, lorsque je donne l'instruction suivante:
Sub Addition()
With Worksheets("Recap Workpage")
Application.ScreenUpdating = False
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -1
If Cells(i, 3).Value = Cells(i - 1, 3).Value Then
Cells(i - 1, 27).Value = Cells(i - 1, 27).Value + Cells(i, 27).Value
Rows(i).Delete
End If
C'est-à-dire d'additionner les valeurs en colonne AA si celles en colonne C
(une ligne au-dessus) sont semblables, alors Excel ne reconnait pas 2005
comme étant semblable à 2005/03/31.... d'ou mon dilemme...
Merci
DenysBonjour Denys,
La barre de formule affiche la propriété "Formula" d'une cellule.
équivalent de Range("A1").formula ... si tu préfères
Le format d'une cellule n'a pas d'influence sur ce qu'affiche la barre des formules.
La seule façon que je vois :
A ) Sélectionne toute ta feuille
B ) format / cellules / onglet protection / tu coches "masquer"
C ) et tu désélectionnes "Verrouuiller"
D ) Tu protèges ta feuille (outils / protection)
Si tu as une version 2002 ou 2003, il est possible d'appliquer cela
à un groupe restreint de cellule... cela dépend des autres exigences
que tu as pour cette feuille.
Salutations!
"Denys" a écrit dans le message de news:
Bonjour à tous,
Dans une cellule j'y ai une date d'inscrite de la façon suivante: 2005
Ce qui apparait dans la barre de formule est: 2005/03/31
Comment faire pour que seulement 2005 apparaisse aussi dans la bare de
formule ? J'ai essayé de formater ma cellule en texte, d'utiliser la fonction
"left", rien n'y fait...
Auriez-vous une solution pour moi? J'ai un peu plus de 9000 cellules à
remplacer dans ma colonne...
Merci
Denys
