Besoin aide macro excel créer un tableau
Résolu/Fermé
caribou38
Messages postés
30
Date d'inscription
samedi 12 juillet 2008
Statut
Membre
Dernière intervention
28 août 2008
-
22 août 2008 à 21:13
caribou38 Messages postés 30 Date d'inscription samedi 12 juillet 2008 Statut Membre Dernière intervention 28 août 2008 - 28 août 2008 à 18:00
caribou38 Messages postés 30 Date d'inscription samedi 12 juillet 2008 Statut Membre Dernière intervention 28 août 2008 - 28 août 2008 à 18:00
A voir également:
- Besoin aide macro excel créer un tableau
- Tableau croisé dynamique - Guide
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer liste déroulante excel - Guide
- Créer un groupe whatsapp - Guide
1 réponse
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 688
26 août 2008 à 09:54
26 août 2008 à 09:54
bonjour
Si j'ai compris ton exemple tu n'as pas besoin de macro, avec cette formule cela fonctionne :
Sinon c'est peut-être ton exemple qui est trop succinct.
Si j'ai compris ton exemple tu n'as pas besoin de macro, avec cette formule cela fonctionne :
=RECHERCHEV(A2;liste!$A$1:$Q$7;17;0)
Sinon c'est peut-être ton exemple qui est trop succinct.
28 août 2008 à 18:00
merci de t'intéresser a mon cas je suis bloqué dans mon projet et je tourne en rond sans trouver de solution
la formule que tu m'as donnée aurait fonctionné si mon tableau était fixe mais il varie il peut aller jusqu'a 2000 lignes
mes explications étaient succincts en fait la macro doit rechercher dans la liste tous les numéro identique et les mettre dans un tableau récapitulatif avec a la fin la référence
par exemple
314 234RTZ 345ZDE 655DSZ
315 345ZDE 456TJK 456UGF
j'essaie de modifier cette macro mais pour l'instant sans succés je parvient jusque a recopier en boucle la référence
Col = "AJ" ' colonne données non vides à tester'
NumLig = 2 ' N° de la 1er ligne de données
With Sheets("Liste moteur") ' feuille source'
NbrLig = .Cells(65536, Col).End(xlUp).Row
For Lig = 2 To NbrLig 'n° de la 1ere ligne de données'
If .Cells(Lig, Col).Value <> "" Then
Range("G3:AH2000").Find(What:=Sheets("feuille de saisie").Range("F6").Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
num = ActiveCell.Row
Cells(num, Col).Copy
Sheets("Feuil1").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
NumLig = NumLig + 1
End If
Next Lig
End With
End Sub