Correction Fichier par Macro

K

Kiseki

XLDnaute Occasionnel

• 3 Août 2011

• #2

Re : Correction Fichier par Macro

Bonsoir,


Ces données resteront elles identiques dans les deux feuilles ?

Si oui une simple recherchev() fonctionnerai très bien :

J'ai ajouté une MFC pour mettre la valeur 0 en blanc (invisible), quand la formule trouve une case vide.



Si tu souhaite le même résultat sans formule, il nous faudrait probablement la raison et un exemple concret dans le fichier pour pouvoir répondre correctement sans perdre du temps.

 

Pièces jointes

• correctionfichier2.xlsx

  12.1 KB · Affichages: 64

Dernière édition: 3 Août 2011

Vote positif 0 Vote négatif

M

megansport

Guest

• 4 Août 2011

• #3

Re : Correction Fichier par Macro

Bonjour au forum
@kiseki , Merci pour ta solution ,elle marche pour quelques lignes mais aprés j'ai le #NA, mais le seul hic c'est que j'ai pas mal de ligne vide dissiminé un peu partout dans le fichier ( 30000 lignes environs) , je préfére avoir une macro qui selectionnerai les lignes avec les cellules vides et completerai le fichier avec la feuille correction, comme je l'aie je l'avais préciser, il y a une référence unique pour les 2 fichiers et elles sont les mémes pour les 2 fichiers.
J'éspére avoir préciser ma pensé afin d'être clair
Le fichier est dans la discussion

Merci à Tous et à toutes

 

Vote positif 0 Vote négatif

M

megansport

Guest

• 4 Août 2011

• #4

Re : Correction Fichier par Macro

Pas de solution?????????😕

 

Dernière modification par un modérateur: 4 Août 2011

Vote positif 0 Vote négatif

M

megansport

Guest

• 4 Août 2011

• #5

Re : Correction Fichier par Macro

SI quelqu'un aurait la gentillesse de m'aider s'il vous plait?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 4 Août 2011

• #6

Re : Correction Fichier par Macro

Bonsoir

C'est vrai ça!

Pas encore de solutions proposées !!!

C'est Lien supprimé !......................................................ou alors on est en aout et c'est les vacances pour beaucoup 🙄

 

Dernière édition: 4 Août 2011

Vote positif 0 Vote négatif

K

Kiseki

XLDnaute Occasionnel

• 5 Août 2011

• #7

Re : Correction Fichier par Macro

Bonjour,


En ce moment j'ai ceci :

VB:

Sub copy_correction()

Dim i As Byte, f As Worksheet, cor As Worksheet, cel As Range
Set f = Sheets("fichier")
Set cor = Sheets("correction")


For Each cel In f.[C:C].SpecialCells(xlCellTypeBlanks)
    For i = 0 To 2
        cel.Offset(0, i) = Application.WorksheetFunction.VLookup(cel.Offset(0, -1), cor.[A1].CurrentRegion, i + 2, False)
    Next i
Next
End Sub

Il rempli les lignes trouvées par la recherche de cases vides dans le tableau.

Seul souci, je n'arrive pas à faire la condition en cas d'erreur.

Donc si la référence ne ce trouve pas dans correction ou s'il n'y à pas de vide.

 

Pièces jointes

• Copie de correctionfichier.xlsm

  20.2 KB · Affichages: 51

Dernière édition: 5 Août 2011

Vote positif 0 Vote négatif