Remplacer ds Excel avec Paste (un peu tordu ^^)Résolu

Question

Hello everybody!

Voila mon pblme : je dois updater un fichier a partir d'un autre... en
utilisant une macro XL4, je recupere les donn&#233;es, les stocke en bas de
ma sheet et le souci commence ici :

Je dois remplacer les entr&#233;es existantes si (et seulement si) le nom de
l'entreprise et la date correpsondent. Si c le cas, je dois remplacer
l'ancienne ligne par la nouvelle (dc je ne peux pas faire de tri comme
on fait en general pour les doublons)



Voila mon code :



For Each cell In ActiveWorkbook.Sheets("WIP").Range("B105:B200")    'on cherche dans les WiP ajout&#233;s



        SearchString =
cell.Text           
'on recupere le nom de l'entreprise

        'MsgBox ("Voila ds la premiere liste:" & SearchString)

        If SearchString = "" Then
GoTo 2      ' pr eviter les lignes vides



        For Each cellule In
ActiveWorkbook.Sheets("WIP").Range("B5:B95")    ' on
cherche dans la base deja existante

            SearchChar = cellule.Text

            'MsgBox ("Voila ds la deuxieme liste:" & SearchChar)



            If
SearchChar = "" Then GoTo 1   ' pr eviter les lignes vides



            MyPos = InStr(SearchString, SearchChar)



            If
MyPos > 0
Then              
' on teste si il y a une difference



                Set Macell = cellule

                Set Maplage = cell



               
If Maplage.Offset(0, 1) = Macell.Offset(0, 1) Then

                   
Maplage.EntireRow.Select

                   
Selection.Copy

                   
Maplage.EntireRow.Delete

                   
Macell.EntireRow.Select

                   
MsgBox ("hum!")

                   
ActiveSheet.Paste 'ici ca plante

                   
MsgBox ("hum!")

                End If



            End If

1       Next

2   Next



g essay&#233; pas mal de chose, y compris un pasteSpecial sur Macell.EntireRow, ms rien ne marche!!

Help me please ;)

dreamlite · Accepted Answer

Youhou Ca marche! Voila probablement la raison de ts mes maux!



"Worksheets(2).Cells(1, 2).EntireRow.PasteSpecial Operation:=xlPasteSpecialOperationAdd"



Merci vraiment bcp 69chris, et au plaisir!

cs_69chris · Answer

Salut,



Maplage.EntireRow.Select

Selection.Copy

Maplage.EntireRow.Delete 'Supprime la selection, donc les donn&#233;es sont o&#249;??

Macell.EntireRow.Select

MsgBox ("hum!")

ActiveSheet.Paste 'ici ca plante

MsgBox ("hum!")


Essai &#231;a



Maplage.EntireRow.Select


Selection.Copy

Macell.EntireRow.Select


MsgBox ("hum!")


ActiveSheet.Paste 'ici ca plante


Maplage.EntireRow.Delete


MsgBox ("hum!")



Chris


N'oubliez pas de cloturer votre post.

dreamlite · Answer

Tout d'abord, merci pr la reponse!

Mais...

a priori les donn&#233;es sont copiees ds le presse papier, dc... j'ai
n&#233;anmoins essay&#233; ta solution, et je me retrouve avec le meme probleme
(entre les deux "hum"!)!

D'autres id&#233;es eventuellement?

cs_69chris · Answer

Entre Excel et Press papier, je me m&#233;fie.

J'y pense, tu as une cellule active sur l'ActiveSheet?

En c'est quoi le message d'erreur (pr&#233;cis).



Chris


N'oubliez pas de cloturer votre post.

dreamlite · Answer

Alors,

aie tent&#233; la cellule active, ca donne pas grd chose!

le message que j'ai (tjs apres le premier hum!) :

run-Time error '1004' : Application-defined or object-defined error



J'espere que ca pourra aider... Merci d'avance!

cs_69chris · Answer

Bon, je viens de faire un essai avant mon WE. Voici mon code



Worksheets(1).Cells(1, 1).EntireRow.Copy

Worksheets(2).Cells(1, 2).EntireRow.PasteSpecial Operation:=xlPasteSpecialOperationAdd

Worksheets(1).Cells(1, 1).EntireRow.Delete


Ca marche, pas de message d'erreur. Ok, c'est pas du param&#233;tr&#233; comme ton code. J'esp&#232;re que &#231;a marchera.



Chris


N'oubliez pas de cloturer votre post.

dreamlite · Answer

Ok merci bien, j'essaie ca lundi ^^

Bon WE!

Remplacer ds Excel avec Paste (un peu tordu ^^)

7 réponses

Discussions similaires