Discussion :

[dado91400]

salut!

comment créer une fonction recherche de caractere dans un tabelau?
je veux trouver le mot "david" dans la colonne C1 jusqu'à C100.

une fois le tableau scannée, je souhaite juste copier toutes les lignes comprenant "david" dans cette colonne C1; puis les coller ailleurs ...

Par exemple COPIER toutes les lignes de mon tableau, qui comprennet dans C1 à C100, le mot "david".
--> les COLLER ensuite à la suite, dès la ligne A110


ça parait simple, mais j'ai rien trouver sur la "fonction recherche"...
pour ce qu'il en est de copier/coller c'est plus facile, je saurai faire je pense.

merci d'avance!

[potili2]

pour ma part, j'ai joué avec les comparaisons de chaine en faisant une boucle
mais peut etre y a t il plus simple

[alsimbad]

salut dado

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
Dim Cel As Variant
Dim MonTabVal()
Dim Zonederecherche
Dim Zonedecriture
Sub exportation()
u = 1 ' initialisation u compteur de ligne correspondantes aux conditions
comptage = Worksheets("tafeuille").Range("C1").CurrentRegion.Rows.Count 'comptage du nombre de ligne de la feuille
champderecherche = "c1:c" & comptage 'plage dans laquelle on cherche
Worksheets("tafeuille").Activate  'active la feuille sur laquelle on cherche
For Each Cel In Worksheets("tafeuille").Range(champderecherche) 'boucle de recherche
              If Cel.Value = "david" Then 'conditions de la recherche
              ReDim Preserve MonTabVal(u + 1)
MonTabVal(u) = Array(Cells(Cel.Row, 1), Cells(Cel.Row, 2), Cells(Cel.Row, 3), Cells(Cel.Row, 4), Cells(Cel.Row, 5)) '...suivant ce que tu veux
                'chaque ligne du tableau correspond aux cellules de la ligne répondant aux conditions
                u = u + 1      ' comptage des ligne correspondants aux conditions
               End If
Next Cel
For z = 1 To u  'boucle pour chaque ligne de tableauvaleur
Zonedecriture = "a" & z + 45 + 1 & ":e" & z + 1 + 45 'determine la taille des lignes ou ecrire le nouveau tableau
Worksheets("tafeuille").Range(Zonedecriture) = MonTabVal(z) 'écriture
Next z
End Sub

j'avais ça qui trainait
voila voila

[dado91400]

Super! merci à vous deux!

jsui en plein dedans je le customize un peu comme je le shouaite.

A+

[alsimbad]

c'est bien si tu es content. dans ce cas utilise

[potili2]

ben, moi, j'ai pas fait grand chose par rapport à Alsimbad...