comparer deux colonnes et copier les manquants

Hervé

XLDnaute Barbatruc

• 13 Juin 2006

• #2

bonjour

sans avoir approfondie ton code :

If Sheets('Extract_AFU').Range('c2' & i2) = Sheets('Rolling_Forecast').Range('e10' & i1) Then

ceci ne fonctionne pas, essayes comme ca :

If Sheets('Extract_AFU').Range('c' & i2) = Sheets('Rolling_Forecast').Range('e' & i1) Then

salut

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 13 Juin 2006

• #3

Merci Hervé

c'est effectivemnt la qu'est le probleme mais meme corrigé il me met toujours erreur d'excution 13.

Je continu mes recherche


De plus je viens de rendre compte qu'il ne supprime pas les doublons. Ennuyeux.

Message édité par: flo2002, à: 13/06/2006 13:47

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Juin 2006

• #4

re flo


as tu corrigé ici aussi :

Sheets('Rolling_Forecast').Range('e10' & Derligne1 + 1) = Sheets('Extract_AFU').Range('c2' & i2)

regarde la ligne en jaune lors du déboggage.

salut

 

Vote positif 0 Vote négatif

Gorfael

XLDnaute Barbatruc

• 13 Juin 2006

• #5

Salut flo2002 , Hervé

Juste une question à flo2002 en passant : Pourquoi tu n'effectues pas ta macro en Pas à Pas ? avec la ligne posant problème, tu corrigerais nettement plus vite, non ?
A+

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 13 Juin 2006

• #6

En faite quand je corrige une ligne c'est l'autre qui est surligner.
Etrange.
En faite, il doit comparer dans rolling_forecast la plage e10:dern lign avec dans extract_afu C2:dern lign. et me mettre ceux qu'il ne trouve pas à la suite de E dans rolling forecast.

En tout cas c'est ce que je lui demande.

merci d'avance.

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 13 Juin 2006

• #7

est ce que ce n'est pas mieu?
If Sheets('Extract_AFU').Range(Cells(2, 3) & i2) = Sheets('Rolling_Forecast').Range(Cells(10, 5) & i1) Then

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Juin 2006

• #8

re flo, salut gorfael


ma vision des choses

Sub MAJ_RF()
Dim c1 As Range, c2 As Range
Dim Exist As Byte
Dim ws1 As Worksheet
Dim ws2 As Worksheet



Set ws1 = Sheets('Rolling_Forecast')
Set ws2 = Sheets('Extract_AFU')

ws1.Cells.RemoveSubtotal

For Each c2 In ws2.Range('c2:c' & ws2.Range('c65536').End(xlUp).Row)
        Exist = 0
        For Each c1 In ws1.Range('e10:e' & ws1.Range('e65536').End(xlUp).Row)
               
                If c2 = c1 Then Exist = 1
        Next c1

        If Exist = 0 Then
                With ws1
                        .Range('e' & .Range('e65536').End(xlUp).Row + 1) = c2
                End With
        End If
Next c2

End Sub

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 13 Juin 2006

• #9

Merci

mais j'ai un soucis à ce niveau
If c2 = c1 Then Exist = 1

en tout cas c'est plus court je pense je vais garder celui la comme base.

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Juin 2006

• #10

re

un soucis ?
lequelle ?

salut

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 13 Juin 2006

• #11

Incompatibilité de type sur If c2 = c1 Then

Ne faut - il pas sauter une ligne après then?
Quand je le fais il me dit then sans for.

Merci de ton implication

je viens de voire que j'ai mis une formule en colonne c et que c'est en dure en E. est ce un probleme?

Message édité par: flo2002, à: 13/06/2006 14:40

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Juin 2006

• #12

re

ben mon implication va etre breve, vu que chez moi ca fonctionne

l'erreur 13 provient généralement d'un mauvais 'typage' de variable, par exemple, ce code provoque une erreur 13 :

Dim nombre As Byte
nombre = 'toto'

car le code atteint un chiffre (byte) et trouve du texte('toto').

dans ton cas c1 et c2 correspondent à des cellules de leurs boucles for each respective, et sont bien typé range(dim c1 as range...)

donc vraiment bizarre.

pour la syntaxe d'un if then il existe deux variantes :

1) sur une seule ligne et donc sans end if :
if ceci then faire cela
2) sur deux lignes avec donc un end if afin de cloturer le bloc d'instruction :
if ceci then
faire celà
end if

dans ce code je n'ai pas d'erreur de syntaxe.

regarde du coté de tes déclaration.

salut

 

Vote positif 0 Vote négatif

flo2002

XLDnaute Impliqué

• 13 Juin 2006

• #13

Merci beaucoup je crois je commence à comprendre.

mon incompatibilité vient certaniement de cette formule: =SI(A2='';'';A2&O2)

puisque j'ai un & il se dit que c'est dy texte donc ca me va. mais de l'autre coté c'est en dure donc ni texte aussi.

Bizar en effet.

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 13 Juin 2006

• #14

re


AH, mais tu as des formules dans tes colonnes ?

waouh, fallait deviner

remplace : If c2 = c1 Then Exist = 1


par : If c2.Value = c1.Value Then Exist = 1


salut

 

Vote positif 0 Vote négatif

F

flo2002

Guest

• 13 Juin 2006

• #15

RE

etrange cela ne fonctionne toujours pas

value c'est pour un nombre?
moi c'est du texte.

merci encore

 

Vote positif 0 Vote négatif