Remplacer une valeur (Macro excel débutant)Résolu

Question

Salut,


Je suis en train d&#146;essayer d&#146;effectuer une macro qui :


d&#146;apr&#232;s la valeur de la colonne A, recherche la valeur correspondante dans la colonne E


et coupe/colle la r&#233;f&#233;rence de la colonne F en C


Exp. : 


A,
B,
C,
D,
E,
F,
----

N.ENT.,
FRS,
PAYS,
,
N.ENT.,
PAYS,
----

34261,
Raymond ,
ARG,
,
34261,
NL,
----

34262,
Raymond ,
ARG,
,
34262,
BE,
----

34263,
Raymond ,
ARG,
,
34263,
FR,
----

34264,
Raymond ,
ARG,
,
34264,
GB,
----

34265,
Raymond ,
ARG,
,
34265,
FR,
----

34266,
Raymond ,
ARG,
,
34266,
NL

Bref remplacer tout les ARG&#133;


Merci pour votre aide.


PS : j&#146;aurais pu effectuer une fonction recherche, mais je voulais savoir comment 
faire sur Excel 2003 en VBA.

galopin01 · Accepted Answer

Bonjour,
Il y a comme toujours plusieurs mani&#232;re de voir les choses :
la plus simple, pas tr&#232;s rapide mais qui convient parfaitement pour de petits travaux :

Sub Test()
Dim i%, Fi%, Z$, Ret
For Each o In Range("E3:E" & Range("E65000").End(xlUp).Row)
Z = o.Value
Set Ret = Range("A3:A" & Range("A65000").End(xlUp).Row).Find(Z)
If Not Ret Is Nothing Then
Fi = Ret.Row
i = Fi
Do
Range("C" & i).Value = o.Offset(0, 1)
Set Ret = Range("A1:A" & Range("A65000").End(xlUp).Row).FindNext(Ret)
i = Ret.Row
Loop While Not Ret Is Nothing And i <> Fi
End If
Fi = 0
Next
End Sub

Une macro d'&#233;cole !
A+

CCJ · Answer

hum hum... une macro d'ecole, surement pas primaire alors 

tite kestion :

a quoi sert range ?? quel est sa fonction

sur i%, Fi%, Z$ a quoi servent :es % et le $

For Each o In Range : ca sert a quoi each

et enfin , c'est quoi la propri&#233;t&#233; .row?

voila merci
VirusMan
une id&#233;e est un chose ,la dire en est une autre

galopin01 · Answer

Le commentaire est effectivement laconique :
Le voici en gif zipp&#233; 
http://perso.wanadoo.fr/galopin01/images/comment.zip
A+

CCJ · Answer

ok thx


VirusMan
une id&#233;e est un chose ,la dire en est une autre

jpleroisse · Answer

Bonsoir,



Option Explicit

Const NumCol = 1

Const NumRow = 3

Const NumRst = 5

Const NumCst = 6



Sub Change()

Dim i, j

For i = 2 To 20

    For j = 2 to 20

   If Cells(NumCol)(i).Value = Cells(NumRst)(i).Value Then

        Cells(NumCst)(i).Select

            Selection.Copy

         Cells(NumRow)(i).Select

        ActiveSheet.Paste

        Application.CutCopyMode = False

        End If

        Exit For

    Next j

   Next i

DoEvents

End Sub



jpleroisse

Remplacer une valeur (Macro excel débutant)

5 réponses

Discussions similaires