Autres [XL2007] copier valeurs tableau cellules non vides triées

kif · 1 Juin 2023

Bonjour La Team

Help please pour un pti code VBA

Ma problématique :

j'ai un tableau de 20 lignes A4:M23 sur ma feuille "RAM" je souhaite coller l'ensemble des valeurs des cellules dans les lignes dont les cellules en colonne M contient "OK"

Toutes ces lignes remplissant ces conditions sont à coller plus bas dans la feuille à partir de la cellule A35 mais sans la colonne M

avant il faut effacer toutes autres lignes antérieures si présentes dans ce nouveau tableau a partir de A35

et enfin les nouvelles lignes collées devront être à la suite de A35 (soit 20 lignes Max a partir de A35 si toutes les lignes de départ remplissent la condition "OK"

voila

Si prob je vous fait un fichier (que demain matin) mais à priori j'arrive à me relire ...mdr !

Merci d'avance de votre support

Franck

Phil69970 · 1 Juin 2023

Bonjour @kif

J'ai pas vu ton fichier ....

@Phil69970

kif · 2 Juin 2023

Bonjour
voici

job75 · 2 Juin 2023

Bonjour kif, Phil69970, le forum,

Le VBA est inutile, des formules matricielles font l'affaire, en A35 :

Code:

=SI(LIGNE()-35<NB.SI($M$4:$M$23;"OK");INDEX(A$1:A$23;PETITE.VALEUR(SI($M$4:$M$23="OK";LIGNE($M$4:$M$23));LIGNE(A1)));"")

A+

kif · 2 Juin 2023

Bonjour Job

Merci mais je ne souhaite pas de matricielle,

je préférer lier un vba a un evenement

merci d'avance

job75 · 2 Juin 2023

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig&, r As Range
lig = 35
Application.ScreenUpdating = False
Application.EnableEvents = False 'désactive les évènements
Rows(lig & ":" & lig + 19).ClearContents 'RAZ
For Each r In [A4:M23].Rows
    If UCase(r.Cells(13)) = "OK" Then Cells(lig, 1).Resize(, 12) = r.Value: lig = lig + 1
Next
Application.EnableEvents = True 'réactive les évènements
End Sub

kif · 2 Juin 2023

Re Job

Nickel c'est parfait

Merci beaucoup

salutations

Autres [XL2007] copier valeurs tableau cellules non vides triées

kif

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

kif

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

kif

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

kif

XLDnaute Occasionnel

Discussions similaires