Rechercher valeur puis copier/coller la ligne correspondante
Résolu
Anaïs
-
Anaïs -
Anaïs -
A voir également:
- Rechercher valeur puis copier/coller la ligne correspondante
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Partager photos en ligne - Guide
- Style d'écriture a copier coller - Guide
3 réponses
Bonjour
pour essayer d'^tre efficace
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
Dans l'attente
pour essayer d'^tre efficace
Mettre le classeur sans données confidentielles en pièce jointe sur https://www.cjoint.com/
et coller le raccourci proposé (clic droit) dans le message de réponse
Dans l'attente
re,
ci dessous code prévu pour le nombre de lignes indiqué dans ton message
sans l'histoire des quartiles qui me rappelles quelquechose de ma jeunesse: j'ai horreur des stats et donc explique moi si ca te parait difficile à insérer dans le code (à moins que tu le fasses par formule)
la bête:
ci dessous code prévu pour le nombre de lignes indiqué dans ton message
sans l'histoire des quartiles qui me rappelles quelquechose de ma jeunesse: j'ai horreur des stats et donc explique moi si ca te parait difficile à insérer dans le code (à moins que tu le fasses par formule)
la bête:
Option Explicit
Option Base 1
'----------------------------------------------------------------------
Sub Transferer_sans_zero()
Dim Derlig As Long, T_init, Nbre As Long
Dim T_zero, Idx As Long, Lig As Long, Col As Byte
'--------- Initialisations
Application.ScreenUpdating = False 'fige l'écran:confort et rapidité
With Sheets("feuil1")
'mémorise le tableau initial
Derlig = .Columns("A").Find(what:="*", searchdirection:=xlPrevious).Row
T_init = .Range("A3:F" & Derlig)
'construit une variable tableau de taille sans les zéros col F
Nbre = Application.CountIf(.Range("F3:F" & Derlig), 0)
ReDim T_zero(UBound(T_init) - Nbre, 6)
End With
'-----------remplissage de T_zero
Lig = 1
For Idx = 1 To UBound(T_init)
If T_init(Idx, 6) <> 0 Then
For Col = 1 To 6
T_zero(Lig, Col) = T_init(Idx, Col)
Next
Lig = Lig + 1
End If
Next
'----------------- restitution tableau sans zéro dans feuille 2
With Sheets("feuil2")
.Range("A3").Resize(UBound(T_zero), 6) = T_zero
.Range("A3:F" & UBound(T_zero) + 2).Borders.Weight = xlThin
.Columns("A:F").Columns.AutoFit
.Activate
End With
End Sub
Bonjour Anaïs,
bonjour michel_m,
Une autre proposition avec un filtre avancé
https://www.cjoint.com/c/EHujzGDCEWg
A+
bonjour michel_m,
Une autre proposition avec un filtre avancé
https://www.cjoint.com/c/EHujzGDCEWg
A+
http://www.cjoint.com/c/EHugUfo3l2g
Merci beaucoup !
combien de lignes (environ) dans la réalité ?