macro extraction de données EXCEL Fermé

Question

Bonjour,
je débute dans la programmation sous visual basic et je voudrais creer une macro.
ma feuile excel se présente de la maniere suivante : (en résumé)
COL_A               COL_B                   COL_C                         COLONE_D

FF05200              oui                     RXCD55GHEF593             12/07/2007
FF05326              oui                     AG532                            10/05/2006
FF89530              non                    AR589                             05/06/2008
FF45200              oui                     no agreement                    13/09/2004

ce qui m'interesse c'est uniquement les colones A et C.
Je voudrai extraire toutes les cases qui ont un code a 13chiffres de la colone C et qui me prene luniquement la colone A qui va avec et qui me la copie sur un nouvel onglet.
en gros ici il me faudrai come résultat : COL_A                   COL_C
                                                     FF05200                 RXCD55GHEF593   
Comment faire?ais-je était assez clair? 
merci de votre aide
COrdialement

gbinforme · Answer

bonjour

Tu peux faire une macro de ce type
Public Sub sel_copie()
Dim w1 As Worksheet
Dim w2 As Worksheet
Dim l1 As Long
Dim l2 As Long
Set w1 = Worksheets("Feuil1")   ' nom de l'onglet base
Set w2 = Worksheets("Feuil2")   ' nom de l'onglet copie
w2.UsedRange.Rows.Delete (xlShiftUp) ' suppression données onglet copie
For l1 = 1 To w1.Cells.SpecialCells(xlCellTypeLastCell).Row
    If Len(Cells(l1, 3).Value) = 13 Then    ' taille colonne C
        l2 = w2.Cells.SpecialCells(xlCellTypeLastCell).Row + 1
        w2.Cells(l2, 1).Value = w1.Cells(l1, 1).Value
        w2.Cells(l2, 3).Value = w1.Cells(l1, 3).Value
    End If
Next l1
End Sub

Tu adapte le nom de tes feuilles à ceux de ton classeur

gbinforme · Answer

bonjour

Les mauvaises questions sont celles qui ne sont jamais posées alors tu peux poser la tienne si tu veux qu'elle soit bonne !

à bientôt

gbinforme · Answer

bonjour

Pour cela il suffit de changer cette ligne
    If Left(Cells(l1, 3).Value,1) = "R" Then    ' début colonne C

Macro extraction de données EXCEL

3 réponses

Discussions similaires