> Tous les forums > Forum Autres langages
 extraire des données avec excel et VB
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
becabunga
  Posté le 29/08/2004 @ 19:43 
Aller en bas de la page 
Nouvel astucien
Bonjour, voilà mon problème : J'aimerais pouvoir extraire de la feuille1 (4 colonnes de données) vers la feuille "menu" Les lignes contenant les noms avec 3 lettres tapées dans la textbox1 et recherchant dans la première colonne et (et seulement et )les lignes contenant 3 lettres tapées dans la textebox2 et recherchant dans la deuxième colonne. Il y a quelques 3000 données dans la liste réelle. Pour l'instant le code est incomplet, les données se rajoutent simplement.Il faudrait annuler les doublons ou annuler les lignes qui contiennent seuelemtn la valeur de textbo1 ou la valeur de textbox2. Voici le code en partie trouvé sur le net : ub Recherche() Dim c1 As Range, c2 As Range Dim text1 As String, text2 As String Dim firstaddress As String Dim table() As String, table2() As String Dim R As Integer, X As Integer text1 = TextBox1.Value text2 = TextBox2.Value With Worksheets(2).Range("a1:a6") Set c1 = .Find(text1, LookIn:=xlValues) If Not c1 Is Nothing Then firstaddress = c1.Address Do ReDim Preserve table(4, i) table(0, i) = c1.Value table(1, i) = c1.Offset(0, 1).Text table(2, i) = c1.Offset(0, 2).Text table(3, i) = c1.Offset(0, 3).Text i = i + 1 Set c1 = .FindNext(c1) Loop While Not c1 Is Nothing And c1.Address <> firstaddress End If End With With Worksheets(2).Range("b1:b6") Set c2 = .Find(text2, LookIn:=xlValues) If Not c2 Is Nothing Then firstaddress = c2.Address Do ReDim Preserve table(4, i) table(0, i) = c2.Offset(0, -1).Text table(1, i) = c2.Value table(2, i) = c2.Offset(0, 1).Text table(3, i) = c2.Offset(0, 2).Text i = i + 1 Set c2 = .FindNext(c2) Loop While Not c2 Is Nothing And c2.Address <> firstaddress End If End With With Worksheets("menu") R = .Range("A65536").End(xlUp).Row + 1 For X = 0 To UBound(table, 2) .Range("A" & R) = table(0, X) .Range("B" & R) = table(1, X) .Range("C" & R) = table(2, X) .Range("D" & R) = table(3, X) R = R + 1 Next X End With End Sub Merci pour votre aide. Vincenzo
Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
59 €Disque dur Seagate BarraCuda 2 To à 59 €
Valable jusqu'au 25 Janvier

Amazon propose actuellement le disque dur Seagate BarraCuda - 2 To (ST2000DM008) à 59 € livré gratuitement. On le trouve ailleurs autour de 69 €. Ce disque dur 3.5 pouces SATA III tourne à 7200tr/min et possède 64Mo de cache. 


> Voir l'offre
99,99 €Ecran Lenovo 24 pouces D24-20 (Full HD, VA, 75 Hz, FreeSync) à 99,99 €
Valable jusqu'au 25 Janvier

Fnac propose actuellement l'écran 24 pouces Lenovo D24-20 à 99,99 € alors qu'on le trouve ailleurs à plus de 129 €. Cet écran dispose d'une dalle Full HD (1920x1080) à bords fins, avec un temps de réponse de 5 ms et un rafraichissement de 75 Hz. Il possède des entrées VGA et HDMI. Il est compatible Freesync.  


> Voir l'offre
22,99 €Clavier sans fil Logitech Wireless Desktop K400 Plus avec pavé tactile à 22,99 €
Valable jusqu'au 26 Janvier

Amazon solde le clavier sans fil Logitech Wireless Desktop K400 Plus à 22,99 €. Ce clavier sans fil dispose d'un large pavé tactile de 9 cm avec navigation multipoint pour un pointage à un doigt simplifié et un défilement vertical à deux doigts. Idéal pour contrôler votre ordinateur à distance, s'il est connecté à une TV par exemple. On le trouve ailleurs à partir de 40 €. 


> Voir l'offre

Sujets relatifs
Extraire données depuis .txt
Récupérer données de 3 fichiers Excel en 1 seul !!
Récupérer données de 3 fichiers Excel en 1 seul !!
Récupérer données de 3 fichiers Excel en 1 seul
le publipostage via excel avec requete de choix..
conversion Excel -> Acrobat avec VB6
Ameliorer le Main "Java" avec les fonctions & procédures
VBA excel transformer date à chiffre
Extraire une image d'un fichier SWF
VBA Excel francisé
Plus de sujets relatifs à extraire des données avec excel et VB
 > Tous les forums > Forum Autres langages