Macro

Bonjour.

A l'aide d'une macro, je voudrais savoir si il est possible de faire une extraction de data d'une colonne et m'en recopier ceux d'une autre étant sur la même ligne?

Je m'explique dans la colonne R en commençant de R3 je voudrais que tout ce qui est au dessus de 8 soit mis dans une autre feuille

avec un nom a partir de A3.

Je compte reproduire la macro sous différent bouton de ce classeur.

D'autre extraction, sont a faire mais le mode opératoire reste le même.

En espérant avoir était claire

Si des colonnes ou cellule sont vide c'est logique mais mon tableau d'origine avec les data reste identique avec des info en plus.

Je mets en pièce jointe le fichier sachant que celui la n'est pas l'officiel.

En recopiant la macro je pourrais peut être la comprendre

Salut Jerôme,

un double-clic en [R1] démarre la macro qui délivre ses résultats en 'Extract'

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
If Not Intersect(Target, Range("R1")) Is Nothing Then
    Cancel = True
    Application.ScreenUpdating = False
    '
    tTab = Range("A1:R" & Range("R" & Rows.Count).End(xlUp).Row).Value
    For x = 3 To UBound(tTab, 1)
        If tTab(x, 18) < 9 Then tTab(x, 1) = ""
    Next
    With Worksheets("Extract")
        .Cells.Delete
        .Range("A1").Resize(UBound(tTab, 1), 18).Value = tTab
        .Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
        .Range("B:B", "Q:Q").Delete
        .Range("B2").Value = WorksheetFunction.Sum(.Range("B3:B" & .Range("B" & Rows.Count).End(xlUp).Row))
        .Activate
    End With
    '
    Application.ScreenUpdating = True
End If
'
End Sub

A+

Bonjour

Merci Curulus57 pour ton aide. C'est bien ce que je chercher, je ne savait pas en double-clic, c'est une autre façon de s'en servir intéressante.

Si je dois faire d'autre extract je recopie la macro a partir de "If not ....... jusque End if" en changeant mes colonnes ?

En changeant aussi le nom de la feuille ou je veux mes autres extract style extract2........

Si je cherche des data inferieur ou egal a j'utilise "<=70" par exemple ?

En te remerciant encore

Salut Jérôme,

c'est le principe mais pas aussi facile car chaque extraction sera particulière, j'imagine.

La liste de questions pour cerner ton besoin serait tellement longue qu'il vaut mieux que tu mettes tout ça à plat.

• ce sont des infos à garder, temporaires ? Une MsgBox pourrait-elle suffire à afficher ces résultats, si temporaires ?
• les infos sont-elles à collecter dans d'autres colonnes ?
• il y a sans doute d'autres colonnes d'info à conserver que celles de cette extraction ?
• des calculs à faire ?
• faut-il vraiment autant de feuilles que d'infos ?
• etc...

Réfléchis à ce que tu veux, explique clairement et complètement et je te pondrai un truc...

A+

Salut

Je t'ai Contacté par mail mais je pense que comme moi cela tombe dans les spam

Si je te met le fichier en anonyme ça passe ?

Salut Jérôme,

bien sûr, on n'attend que ça, nous!

A+