basculer entre deux classeurs , recherche de données et suppression de la ligne

[VBA_première_fois]

bonsoir tout le monde , bonsoir forum

5 mois déjà depuis que j'ai commencé mon auto apprentissage du langage VBA mais comme tout débutant j'ai toujours des soucis de réalisation lorsque je dois basculer entre 2 classeurs

j'ai mis en pièce jointe un fichier pour exemple pour faciliter la compréhension

mon problème
le classeur 1 contient plusieurs données dans les colonne A,B,I et K

le classeur 2 contient plusieurs onglets
onglet station métro qui contient des données dans la colonne I
onglet ville qui contient des données dans la colonne B
onglet pays qui contient des données dans la colonne K
onglet rue qui contient des données dans la colonne A

ce que je cherche à faire :
--prendre la colonne A du classeur 1 , et chercher les données dans la colonne A de l'onglet "rue" du classeur 2

--prendre la colonne B du classeur 1 , et chercher les données dans la colonne B de l'onglet "VILLE" du classeur 2

--prendre la colonne I du classeur 1 , et chercher les données dans la colonne I de l'onglet "station metro" du classeur 2

--prendre la colonne K du classeur 1 , et chercher les données dans la colonne K de l'onglet "PAYS" du classeur 2

à chaque fois qu'il trouve une données dans le classeur 1 , il supprime toute la ligne

merci d'avance et bonsoir

 

[VBA_première_fois]

Re : basculer entre deux classeurs , recherche de données et suppression de la ligne

rebonsoir

le code que j'ai me permet de faire ces opérations sur un onglet du classeur 1 et un onglet du classeur2
mais je n'arrive pas à réaliser la bascule entre onglets et classeurs , ou plutôt je ne réussis pas à chaque coup.

 

[VBA_première_fois]

Re : basculer entre deux classeurs , recherche de données et suppression de la ligne

pas de réponse pour m'aider???????

 

[Guest]

Re : basculer entre deux classeurs , recherche de données et suppression de la ligne

Bonsoir,

Et ton code il est où? comment veux-tu apprendre si on ne peut te montrer où tu te trompes.

A+

 

[VBA_première_fois]

Re : basculer entre deux classeurs , recherche de données et suppression de la ligne

bonsoir tout le monde , bonsoir le fil
voici le code dont j'ai parlé:

Private Sub CommandButton14_Click()
'On Error Resume Next
 '   Dim wkbSource As Workbook, wkbCible As Workbook, fichier As String
'Application.Workbooks.Open Application.GetOpenFilename()
On Error Resume Next
    Dim wkbSource As Workbook, wkbCible As Workbook, fichier As String
    Dim ws As Worksheet, x&, i&, j&, k&, L&, a, nom As String
    fichier = ThisWorkbook.Path
    Set wbSource = ThisWorkbook
   Set FD = Application.FileDialog(msoFileDialogOpen)
    With FD
        fichier = ThisWorkbook.Path
        .Title = "Choisissez le Fichier que Vous Souhaitez Mettre à Jour"
        .InitialFileName = fichier & "\lien1\lien2\*"
        .Filters.Clear
        .Filters.Add "Fichier Excel", "*.xls"
        .AllowMultiSelect = False
        If .Show <> 0 Then
            nom = .SelectedItems(1)
        Else
            MsgBox "Vous n'avez aucun fichier dans votre dossier", , "Manque de Fichier"
        End If
    End With
    Set wkbCible = Workbooks.Open(nom)
    
    '''''''''''''''''''''''''''

Set wbSource = ThisWorkbook
'ThisWorkbook signifie le classeur de ma macro
For n = 2 To wbSource.Worksheets("donnees_supprimees").Range("I65536").End(xlUp).Row


Set wbCible = ActiveWorkbook

  Set c = wbCible.Worksheets("1").Range("I2:I" & Worksheets("1").Range("I65536").End(xlUp).Row).Find(Worksheets("1").Range("I" & n), LookIn:=xlValues, lookat:=xlWhole)

  If Not c Is Nothing Then
wbCible.Worksheets("1").Rows(Selection.Rows).Delete
  
  End If
Next n
End Sub

pourriez vous me dire pourquoi il ne marche pas