selectionner dans une colonne une date puis récupérer certaine valeur ligne

Le
jj40 Hors ligne
Bonjour,
je souhaiterais dans un fichier excel qui contient une vingtaine de feuilles sélectionner la colonne de date atteindre la dernière date saisie puis sur la ligne sélectionnée copier certaines cellules de droite dans chaque feuille ex: B3 C3 F3 qui sont tous agencés de la même façon, sur la première feuille faire un récapitulatif ligne par ligne sélectionnée et par feuille de chaque valeur trouvées de telle façon qu' a chaque ouverture du fichier la mise à jour se fasse automatiquement.
pour le code j'ai quelque connaissances mais toutes petites lol

exemple:

résultat dans la feuille récapitulative

date
Feuille1 12/01/2001 valeur B3 valeur C3 valeur F3
Feuille2 13/01/2001 valeur B3 valeur C3 valeur F3
Feuille3 14/01/2001 valeur B3 valeur C3 valeur F3
Feuille4 15/01/2001 valeur B3 valeur C3 valeur F3
Feuille5 16/01/2001 valeur B3 valeur C3 valeur F3
Feuille6 17/01/2001 valeur B3 valeur C3 valeur F3
etc



ex pour les feuilles de données sélectionnées

date
12/01/2001 valeur B3 valeur C3 valeur F3
13/01/2001 valeur B3 valeur C3 valeur F3
14/01/2001 valeur B3 valeur C3 valeur F3
15/01/2001 valeur B3 valeur C3 valeur F3
16/01/2001 valeur B3 valeur C3 valeur F3
17/01/2001 valeur B3 valeur C3 valeur F3

Merci de la réponse
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
DanielCo
Le #23778411
Bonjour,

Sub test2()
Dim sh As Worksheet, c As Range, Ligne As Long
With Sheets("Récap")
Ligne = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
For Each sh In Sheets
If sh.Name <> "Récap" Then
Ligne = Ligne + 1
.Cells(Ligne, 1) = sh.Name
Set c = sh.Columns(1).Find("*", , , , xlByRows, xlPrevious)
.Cells(Ligne, 2) = c.Value
.Cells(Ligne, 3) = sh.Cells(c.Row, 2)
.Cells(Ligne, 4) = sh.Cells(c.Row, 3)
.Cells(Ligne, 5) = sh.Cells(c.Row, 6)
End If
Next sh
End With
End Sub

Cordialement.
Daniel


Bonjour,
je souhaiterais dans un fichier excel qui contient une vingtaine de feuilles
sélectionner la colonne de date atteindre la dernière date saisie puis sur
la ligne sélectionnée copier certaines cellules de droite dans chaque feuille
ex: B3 C3 F3 qui sont tous agencés de la même façon, sur la première feuille
faire un récapitulatif ligne par ligne sélectionnée et par feuille de chaque
valeur trouvées de telle façon qu' a chaque ouverture du fichier la mise à
jour se fasse automatiquement.
pour le code j'ai quelque connaissances mais toutes petites lol

exemple:

résultat dans la feuille récapitulative

date
Feuille1 12/01/2001 valeur B3 valeur C3 valeur F3
Feuille2 13/01/2001 valeur B3 valeur C3 valeur F3
Feuille3 14/01/2001 valeur B3 valeur C3 valeur F3
Feuille4 15/01/2001 valeur B3 valeur C3 valeur F3
Feuille5 16/01/2001 valeur B3 valeur C3 valeur F3
Feuille6 17/01/2001 valeur B3 valeur C3 valeur F3
etc



ex pour les feuilles de données sélectionnées

date
12/01/2001 valeur B3 valeur C3 valeur F3
13/01/2001 valeur B3 valeur C3 valeur F3
14/01/2001 valeur B3 valeur C3 valeur F3
15/01/2001 valeur B3 valeur C3 valeur F3
16/01/2001 valeur B3 valeur C3 valeur F3
17/01/2001 valeur B3 valeur C3 valeur F3

Merci de la réponse
Le #23779371
DanielCo a écrit le 21/09/2011 à 10h37 :
Bonjour,

Sub test2()
Dim sh As Worksheet, c As Range, Ligne As Long
With Sheets("Récap")
Ligne = .Cells(.Cells.Rows.Count, 1).End(xlUp).Row
For Each sh In Sheets
If sh.Name <> "Récap" Then
Ligne = Ligne + 1
.Cells(Ligne, 1) = sh.Name
Set c = sh.Columns(1).Find("*", , , , xlByRows, xlPrevious)
.Cells(Ligne, 2) = c.Value
.Cells(Ligne, 3) = sh.Cells(c.Row, 2)
.Cells(Ligne, 4) = sh.Cells(c.Row, 3)
.Cells(Ligne, 5) = sh.Cells(c.Row, 6)
End If
Next sh
End With
End Sub

Cordialement.
Daniel


Bonjour,
je souhaiterais dans un fichier excel qui contient une vingtaine de feuilles
sélectionner la colonne de date atteindre la dernière date
saisie puis sur
la ligne sélectionnée copier certaines cellules de droite dans
chaque feuille
ex: B3 C3 F3 qui sont tous agencés de la même façon, sur
la première feuille
faire un récapitulatif ligne par ligne sélectionnée et
par feuille de chaque
valeur trouvées de telle façon qu' a chaque ouverture du fichier
la mise à
jour se fasse automatiquement.
pour le code j'ai quelque connaissances mais toutes petites lol

exemple:

résultat dans la feuille récapitulative

date
Feuille1 12/01/2001 valeur B3 valeur C3 valeur F3
Feuille2 13/01/2001 valeur B3 valeur C3 valeur F3
Feuille3 14/01/2001 valeur B3 valeur C3 valeur F3
Feuille4 15/01/2001 valeur B3 valeur C3 valeur F3
Feuille5 16/01/2001 valeur B3 valeur C3 valeur F3
Feuille6 17/01/2001 valeur B3 valeur C3 valeur F3
etc



ex pour les feuilles de données sélectionnées

date
12/01/2001 valeur B3 valeur C3 valeur F3
13/01/2001 valeur B3 valeur C3 valeur F3
14/01/2001 valeur B3 valeur C3 valeur F3
15/01/2001 valeur B3 valeur C3 valeur F3
16/01/2001 valeur B3 valeur C3 valeur F3
17/01/2001 valeur B3 valeur C3 valeur F3

Merci de la réponse




Merci Daniel ça fonctionne parfaitement "total respect" bonne continuation sur le site à bientôt amicalement JJ
Publicité
Poster une réponse
Anonyme