Discussion :

[raisefold]

Bonjour,
je suis nouveau sur le forum et nouveau sur VBA. Je suis face à un problème que j'ai essayer de résoudre par des fonctions excels mais je n'ai pas réussi.
Contexte: j'ai une liste de valeurs définis par 5 caractères : nom , prénom , age , lieu et état.
Je souhaiterais copier coller les lignes où l'individu est sobre( donc L4 &5) situé dans la feuille 2 nommé sobre, de même pour les individus avec état ivre etc..
Cependant je ne souhaite pas utiliser de tableau filtrer pour la première feuille de base de donnée et je souhaite pouvoir ajouter de nouvelles données dans le tableau. Les lignes nouvelles ajoutées ne seraient pas directement copier coller mais on pourrait ajouter un bouton pour démarrer le copier collage des nouvelles données.
Je vous joint la petite base de donnée que j'ai créer.

Merci de toute aide!

[MarcelG]

Bonjour,

Dans ce cas.
Comme souvent, je préconise l'alimentation d'une variable tableau avec condition puis la transposition de celui-ci sur la feuille de destination.

Attention! A adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
 
Public Sub essai_tablo()
 
Dim derlign As Long, i As Long, j As Long
 
Dim k As Byte
Dim tablo()
 
Application.ScreenUpdating = False
 
j = 0
With Worksheets("Données")
   derlign = .Cells(.Rows.Count, 1).End(xlUp).Row
   For i = 1 To derlign
         With .Cells(i, 1)
               If Len(.Value) > 0 Then
                     j = j + 1
                     '5 représente les collonnes A à E
                     ReDim Preserve tablo(1 To 5, 1 To j)
                     'Alimentation de la variable tablo des valeurs contenues sur la même ligne, décalée chacune de 1 colonne
                     For k = 1 To 5
                           tablo(k, j) = .Offset(0, k - 1).Value
                     Next k
               End If
         End With
   Next i
End With
 
Worksheets("Résultats").Range("A1").Resize(UBound(tablo, 2), UBound(tablo, 1)).Value = WorksheetFunction.Transpose(tablo)
 
'Variable réinitialisée
Erase tablo
 
End Sub

Essaie d'adapter et reviens si nécessaire