Discussion :

[GEORGE_V]

Bonjour,
Je sollicite votre aide pour réaliser une macro
TABLEAU (BV à EM)
Le tableau est composé de cellules vides et de cellules avec une valeur.
Les colonnes BU et EN ont comme valeur des dates.
La colonne EO sont des valeur compris entre 0 et 11.
Le but de la macro est de chercher les cellules ayant une valeur égale à 9 et de sélectionner la ligne.
Exemples :
1) La cellule EO14 = 9 donc sélectionner BU14 à EO14
2) Copier-coller en FA2.
3) La cellule EO39 = 9 donc sélectionner BU39 à EO39
4) Copier-coller en FA3.
5) Et ainsi de suite de la cellule EO2 à EO7598.
Le fond des cellules en jaune est facultatif, c’est juste pour illustrer les 2 exemples ci-dessus.
Les tableaux sont composés de 70 colonnes et 7598 lignes.
Merci d’avance pour votre aide.
GEORGE_V

[Daniel.C]

Bonjour,

Essaie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
  Dim Plage As Range, C As Range, Ligne As Long, Tabl As Variant, I As Long, Ctr As Long
  With Sheets("TABLEAU")
    Ligne = .Cells(.Rows.Count, "EO").End(xlUp).Row
    Tabl = Application.Transpose(.Range("EO2", .Cells(Ligne, "EO")))
    Ctr = -1
    For I = 1 To UBound(Tabl)
      If Tabl(I) = 9 Then
        Ctr = Ctr + 1
        .[FA1].Offset(Ctr).Resize(, 74).Value = .Cells(I + 1, "BU").Resize(, 74).Value
      End If
    Next I
  End With
End Sub

[GEORGE_V]

Bonjour Daniel,
Difficile d’avoir une tronche jusque par terre alors que la macro que vous m’avez envoyée fonctionne à merveille.
1000 merci’s pour votre aide.
A+
GEORGE_V