Macro excel, association d'élément Résolu

Question

Bonjour,

Voila j'ai un petit problème,

J'ai deux parties d'un tableau (ces deux parties contiennent des
noms et des dates) que je récupère dans un autre et qu'ensuite je copy
dans une autre feuille.

voila ma questions :

comment peut-on associer les noms et les dates ensemble comme dans l'autre tableau.

voici le code :

Sub filtre()

    Dim Lig     As Long

    Dim Col     As String

    Dim NbrLig  As Long

    Dim NumLig  As Long

    Sheets("Alert").Activate ' feuille de destination

    Col = "i"                 ' colonne données non vides à tester'
    NumLig 2                ' alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 0 .... ? '

    With Sheets("PAR CENTRE")     ' feuille source'

        NbrLig = .Cells(65536, Col).End(xlUp).Row

        For Lig = 1 To NbrLig

            If .Cells(Lig, 4).Value <> "" Then

                .Cells(Lig, 4).Copy

                Sheets("Alert").Cells(NumLig, 2).Insert Shift:=xlDown   'ici pour insérer ou  .Paste pour coller'

            End If

            If IsDate(.Cells(Lig, 12).Value) Then

                .Cells(Lig, 12).Copy

                Sheets("Alert").Cells(NumLig, 3).Insert Shift:=xlDown   'ici pour insérer ou  .Paste pour coller'

            End If

        Next

    End With

en vous remerciant pour votre aide.

spirit33 · Accepted Answer

c bon le problème est résolu
voici le code pour ce que ça intéresse :

Sub filtre()
    Dim Lig As Long
    Dim Col As String
    Dim NbrLig As Long
    Dim NumLig As Long
    
    Sheets("Alert").Activate             ' feuille de destination
    
    Col = "I"                      ' colonne données non vides à tester'     NumLig 2                 ' alors là ca doit etre le N° de la 1er ligne de données en comptant la ligne 1 0 .... ? '
    With Sheets("PAR CENTRE")         ' feuille source'
     NbrLig = .Cells(65536, Col).End(xlUp).Row
        For Lig = 1 To NbrLig
            If .Cells(Lig, 4).Value <> "" Then
                
                Sheets("Alert").Cells(NumLig, 2).Resize(1, 2).Insert Shift:=xlDown
                        ' les 2 colonnes sont décalées pour rester cohérent
                Sheets("Alert").Cells(NumLig, 2) = .Cells(Lig, 4)
            End If
            If IsDate(.Cells(Lig, 12).Value) Then
                                
                Sheets("Alert").Cells(NumLig, 3) = .Cells(Lig, 12)

            End If
        Next
    End With
End Sub

et voila dsl pour le dérangemen t

Macro excel, association d'élément

1 réponse

Votre réponse

Discussions similaires