Discussion :

[zertupo]

Bonjour

J'aimerai savoir s'il était possible d'insérer des données d'un classeur dans un autre ? J'aimerai regarder dans une colonne d'un classeur s'il existe une valeur et si elle existe prendre la valeur correspondante et l'insérer dans un autre classeur...j'ai beau essayer plein de chose différente rien ne marche... ça m'affiche pas de message d'erreur mais ça me met pas les valeurs correspondantes...je vous met ci dessous deux types de code que j'ai inscrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Workbooks.Open Filename:=("C:\Users\\" & Worksheets("Liste fonds").Range("B2").Offset(i, 0))
        Range("I1").Select
 
        j = 0
        While Range("I1").Offset(j, 0) <> ""
        If Range("I1").Offset(j, 0) = "HS MONE" Then
        nbrehsbc = Range("I1").Offset(j, 17)
 
        Workbooks("CONTROLE MONE.xls").Activate
        Worksheets("CONTROLE").Activate
        Range("F13").Offset(i, 0) = nbrehsbc
 
        End If
 
        j = j + 1
 
        Wend

ici j'ouvre tous les excel portant le nom présent dans la colonne B2 et je check leur colonne I pour vérifier mes conditions...

Dans ce deuxième code je teste juste sur un classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Workbooks.Open Filename:=("C:\Users\" & "HISINV_20141231_1416_UNOFI-RENDEMENT_2.xls")
    Range("I1").Select
    For i = 0 To 100
    If Range("I1").Offset(i, 0) = "HS MONE " Then
 
    Workbooks("CONTROLE MONE.xls").Worksheets("feuil3").Range("A2") = Range("I1").Offset(i, 17)
    End If
    Next i

mais ça ne s'affiche pas non plus ...

Si quelqu'un peut me dire si c'est possible et si oui quel procédé faut il utiliser s'il vous plait ?

Cordialement

[Daniel.C]

Bonjour,

Remplace ton second code par celui-ci (change le nom de la feuille) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Dim I As Variant
    Workbooks.Open Filename:=("C:\Users\" & "HISINV_20141231_1416_UNOFI-RENDEMENT_2.xls")
    With Sheets("Feuil1") 'à modifier
        I = Application.Match("HS MONE ", .[I:I], 0)
        If IsNumeric(I) Then
            Workbooks("CONTROLE MONE.xls").Worksheets("feuil3").Range("A2") = .Range("I1").Offset(I, 17)
        End If
    End With

[zertupo]

ha j'ai appris une fonction, je connaissais pas la fonction match...

Mais même résultat, ça bug pas le programme se lance mais rien ne s'affiche...

j'ai essayé de mélanger votre méthode avec les différentes manières que j'ai procédé mais le résultat reste le même...


Cordialement

[Marc-L]

Bonjour, bonjour !

Si, si, tu dois la connaitre ! C'est la fonction EQUIV de feuille de calculs !
Comme quoi en VBA mieux vaut d'abord penser à une formule Excel qu'à une usine pure VBA !

Et si tu n'y arrives pas manuellement avec cette fonction, il y a aussi parmi d'autres la fonction RECHERCHEV
(les deux sont détaillées dans l'aide d'Excel) …

Une fois que tu as une formule correcte, indiques-la nous et on pourra t'indiquer une astuce pour la traduire en VBA …

[Daniel.C]

Essaie ce code. Est-ce que le message d'anomalie ("Valeur non trouvée") apparaît ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Dim I As Variant
    Workbooks.Open Filename:=("C:\Users\" & "HISINV_20141231_1416_UNOFI-RENDEMENT_2.xls")
    With Sheets("Feuil1") 'à modifier
        I = Application.Match("HS MONE ", .[I:I], 0)
        If IsNumeric(I) Then
            Workbooks("CONTROLE MONE.xls").Worksheets("feuil3").Range("A2") = .Range("I1").Offset(I, 17)
        Else
            MsgBox "Valeur non trouvée"
        End If
    End With

[zertupo]

je viens de trouver en exécutant ligne par ligne... j'avais oublié un \ sur un lien au tout début de mon code.... en tout cas merci