Discussion :

[Swednoss]

Bonjour,

Le titre n'étant pas là pour écrire un roman, je vais vous expliquer ce que je cherche à faire.
Tous les jours je génère un fichier pour le suivi d'incident technique. D'un jour à l'autre, il est possible que les incidents ne soient pas clos.
Je cherche à créer une macro qui recherchera le numéro d'incident dans le fichier de la veille et copiera dans le fichier du jour, le commentaire.
Toutefois n'étant pas un développeur VBA né, je coince sur cette demande.
J'ai bien essayé l'enregistreur de macro mais d'un fichier à l'autre, ça ne fonctionne pas.

S'il existe déjà une discussion sur ce sujet, je vous prie de m'excuser.

Merci pour votre aide.

Cordialement,

[anasecu]

Bonjour,

Toutefois n'étant pas un développeur VBA né, je coince sur cette demande.

Comme tu n'es pas développeur, tu devrais déjà essayer avec les fonctions RECHERCHEV ou INDEX/EQUIV
qui devraient te récupérer ton commentaire de la veille sans codage.

[Swednoss]

Merci pour ce retour.
Toutefois je ne pense pas que la RECHERCHEV soit la solution à ma demande. Car il faudrait une matrice de comparaison.
Or les numéros d'incident sont générés de manière aléatoire par le système. Donc aucune comparaison possible.

[anasecu]

Bonjour,

Je cherche à créer une macro qui recherchera le numéro d'incident dans le fichier de la veille et copiera dans le fichier du jour, le commentaire.

Toutefois je ne pense pas que la RECHERCHEV soit la solution à ma demande. Car il faudrait une matrice de comparaison.
Or les numéros d'incident sont générés de manière aléatoire par le système. Donc aucune comparaison possible.

Si la fonction n'est pas capable de rechercher "le numéro d'incident dans le fichier de la veille" comment veux-tu qu'une macro le fasse ?

[Swednoss]

Autant pour moi, je viens de comprendre ce que tu me disais.
En effet ça peut être un bon départ.
Mais il faudra que je le passe dans une macro tout de même.

[anasecu]

Bonjour,

Mais il faudra que je le passe dans une macro tout de même.

Il te suffit de mettre la formule dans la colonne où tu veux récupérer le commentaire
et donc un copier / coller suffit. Que ferait ta macro ?

[Swednoss]

Elle ferait partie de la Macro générale. Puisque cette formule s'appliquerait à toutes les feuilles.
Mais là où je bloque c'est de lui indiquer dans quel fichier elle doit taper et sur quelle feuille.

[anasecu]

Bonjour,

Mais là où je bloque c'est de lui indiquer dans quel fichier elle doit taper et sur quelle feuille.

Comment veux-tu que l'on t'aide si tu ne communiques pas ton code qui te pose souci ?

[Invité]

Code :

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

1
2
3
4
5
6
7
8
Sub test()
With CreateObject("Adodb.Connection")
 .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
 & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=1""" 
 Sheets(2).Range("A1").CopyFromRecordset .Execute("select [numéro incident],count([numéro incident]) from [Feuil1$] group by [numéro incident] having count([numéro incident])>1")
.Close
End With
End Sub

[Swednoss]

Bonjour,
Désolé du retour tardif. quelques petits soucis hier.

Je suis parti sur l'idée d'Anasécu avec un vlookup

Bonjour,
Comment veux-tu que l'on t'aide si tu ne communiques pas ton code qui te pose souci ?

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub com()
 
Dim f As Range
Dim dernligne As Long
 
With Sheets("Feuille1")
    dernligne = .Range("A" & Rows.Count).End(xlUp).Row
    Set f = .Range("O2")
    With f
        .Formula = "=vlookup(" & f.Offset(0, -14).Adress(False, False) & ",'C:\Users\TOTO\Desktop\[J-1.xls]Feuille1'!$A$2:$O$50,15,""faux"")"
        f.AutoFill Destination:=Sheets("Feuille1").Range("O2:O" & dernligne)
    End With
End With
End Sub

Je pense être bien parti mais j'ai un erreur sur la ligne de la formule et ayant la tete dans le guidon depuis ce matin, je n'ai plus assez de recul pour être objectif.

Dysorthographie, merci pour le code, mais je ne comprends pas ce qu'il fait exactement. Pourrais tu le commenter s'il te plait ?

Merci pour vos réponses.

[Invité]

Bonjour,

Dysorthographie, merci pour le code, mais je ne comprends pas ce qu'il fait exactement. Pourrais tu le commenter s'il te plait ?

il ne fait pas grand chose! il retourne tous les doublons, triplons etc... en une fois!

[Swednoss]

Merci pour cette explication.
Une petite idée sur ce qui ne va pas avec mon code, s'il te plait ?

[Marc-L]

Bonjour,

remplacer l'Offset (forcément faux !) par l'adresse en dur comme du reste la suite de la formule …

___________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[Swednoss]

ok merci pour le retour.
Rien d'autre ?

[Marc-L]

Merci de ne pas citer l'intégralité du message juste précédent, cela nuit à la fluidité de cette discussion !

Comme c'est visuel :   il suffit de comparer la propriété Formula de la formule
fonctionnelle dans une cellule avec la tentative programmée en VBA …

L'Offset n'est pas faux en fait mais apparemment inutile, ce serait peut-être "faux" ne pouvant exister avec Formula,
essayer donc avec la propriété FormulaLocal (là aussi en comparant) …