Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Boucler une macro sur une plage de cellules

Boucler une macro sur une plage de cellules

4 réponses
Avatar
gaberthion
Bonjour,

Je vous explique le probl=E8me que je rencontre :
De D1 =E0 D100 j'ai des chemins d'acc=E8s =E0 des fichiers
Et je souhaite afficher en H leur date de modif

J'ai fait une macro du type :
a =3D FileDateTime(Range("D2").Value)
b =3D FileDateTime(Range("D3").Value)
C =3D FileDateTime(Range("D4").Value)
d =3D FileDateTime(Range("D5").Value)
.=2E..

Range("H2").Value =3D a
Range("H3").Value =3D b
Range("H4").Value =3D C
Range("H5").Value =3D d
.=2E..

Mais ca n'est absolument pas optimis=E9.

Quel moyen utiliser pour boucler ceci dans une macro sans avoir =E0
d=E9finir la valeur de chaque cellule ?

D'avance merci.

G=2E
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gilles MOUGNOZ
Bonjour, G.

Peut-être quelque chose comme ceci (non testé):

For i = 1 to 100
Range("H" & i).Value = FileDateTime(Range("D" & i).Value)
Next i

C'est OK ?
--
Bonne continuation
-------------------------------------------------------------------------------------------
Bonjour,

Je vous explique le problème que je rencontre :
De D1 à D100 j'ai des chemins d'accès à des fichiers
Et je souhaite afficher en H leur date de modif

J'ai fait une macro du type :
a = FileDateTime(Range("D2").Value)
b = FileDateTime(Range("D3").Value)
C = FileDateTime(Range("D4").Value)
d = FileDateTime(Range("D5").Value)
....

Range("H2").Value = a
Range("H3").Value = b
Range("H4").Value = C
Range("H5").Value = d
....

Mais ca n'est absolument pas optimisé.

Quel moyen utiliser pour boucler ceci dans une macro sans avoir à
définir la valeur de chaque cellule ?

D'avance merci.

G.
Avatar
Jacques93
Bonjour ,

Dim i as Integer

For i = 1 To 100
Range("H" & Format(i)).Value = _
FileDateTime(Range("D" & Format(i)).Value)
Next i

Bonjour,

Je vous explique le problème que je rencontre :
De D1 à D100 j'ai des chemins d'accès à des fichiers
Et je souhaite afficher en H leur date de modif

J'ai fait une macro du type :
a = FileDateTime(Range("D2").Value)
b = FileDateTime(Range("D3").Value)
C = FileDateTime(Range("D4").Value)
d = FileDateTime(Range("D5").Value)
....

Range("H2").Value = a
Range("H3").Value = b
Range("H4").Value = C
Range("H5").Value = d
....

Mais ca n'est absolument pas optimisé.

Quel moyen utiliser pour boucler ceci dans une macro sans avoir à
définir la valeur de chaque cellule ?

D'avance merci.

G.




--
Cordialement,

Jacques.

Avatar
Elliac
Bonjour,

Avec x à définir
Peut-être :
Range("H2").Select
For cpt=1 to x
ActiveCell=FileDateTime(ActiveCell.Offset(,-4))
Next

Camille

"" wrote:

Bonjour,

Je vous explique le problème que je rencontre :
De D1 à D100 j'ai des chemins d'accès à des fichiers
Et je souhaite afficher en H leur date de modif

J'ai fait une macro du type :
a = FileDateTime(Range("D2").Value)
b = FileDateTime(Range("D3").Value)
C = FileDateTime(Range("D4").Value)
d = FileDateTime(Range("D5").Value)
.....

Range("H2").Value = a
Range("H3").Value = b
Range("H4").Value = C
Range("H5").Value = d
.....

Mais ca n'est absolument pas optimisé.

Quel moyen utiliser pour boucler ceci dans une macro sans avoir à
définir la valeur de chaque cellule ?

D'avance merci.

G.




Avatar
ecpuscato
On 14 mar, 11:28, Jacques93 wrote:
Bonjour ,

Dim i as Integer

For i = 1 To 100
Range("H" & Format(i)).Value = _
FileDateTime(Range("D" & Format(i)).Value)
Next i






Bonjour,

Je vous explique le problème que je rencontre :
De D1 à D100 j'ai des chemins d'accès à des fichiers
Et je souhaite afficher en H leur date de modif

J'ai fait une macro du type :
a = FileDateTime(Range("D2").Value)
b = FileDateTime(Range("D3").Value)
C = FileDateTime(Range("D4").Value)
d = FileDateTime(Range("D5").Value)
....

Range("H2").Value = a
Range("H3").Value = b
Range("H4").Value = C
Range("H5").Value = d
....

Mais ca n'est absolument pas optimisé.

Quel moyen utiliser pour boucler ceci dans une macro sans avoir à
définir la valeur de chaque cellule ?

D'avance merci.

G.


--
Cordialement,

Jacques.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -


Bonjour à tous,

La solution de Jacques fonctionne à merveille.
Ca va me faire gagner beaucoup de temps.

Bonne continuation.
G.