VBA macro déplacement cellule

[Edd93]

Bonjour à vous !


J'aimerai faire une macro qui déplace tout le contenu d'une cellule vers une autre cellule, sachant que les cellules de départs et d'arrivé sont listées dans une colonne A et B, et le tout est dans une feuil2.

Exemple
Colonne A (cellule départ)
A30 (A1)
B36 (A2)
C45 (A3)

Colonne B (cellule (arrivé))
A98 (B1)
C26 (B2)
C57 (B3)

Merci à toute la communauté !

J'ai oublié de précisé, je veux que cette macro de déplacement s'applique pour la feuil1 malgré que les données sont en feuille 2

 

[thebenoit59]

Bonjour Edd.
Un exemple pour la première ligne :

Range([b1]) = Range([a1]): Range([a1]).ClearContents

 

[Edd93]

ça ne marche pas... il y a un message objet global a échoué

 

[thebenoit59]

Peux-tu joindre ton fichier ou un fichier exemple ?

 

[Edd93]

d'accord, attends

 

[Edd93]

Voilà un parfait exemple. (feuille 1 et 2)

 

[eriiic]

Bonjour,

un retour sur le complément que tu avais demandé serait apprécié ici :
eric

 

[thebenoit59]

Bonjour Eric.

Voilà un code qui fonctionne.

Option Explicit

Sub Deplacement_Palette()
Dim f1 As Worksheet, f2 As Worksheet
Dim i%: i = 2
Dim d1$, d2$

Set f1 = Sheets("Feuil1"): Set f2 = Sheets("Feuil2")

With f2
    Do While .Cells(i, 2).Value <> ""
        d1 = .Cells(i, 2).Value: d2 = .Cells(i, 3).Value
        f1.Range(d1).Cut f1.Range(d2)
        i = i + 1
    Loop
End With

End Sub

 

[Edd93]

Ouah t'es fort... comment tu sais que je suis sircroco ahahahah.

J'avais pas vu ton message... génial pour ce cas ça marche.

Comme tu l'as vu ici ce que je souhaite justement c'est le déplacement des cellules comme dans le fichier exemple, je vais prendre ta macro pour le retour, enfin l'annulation des déplacements.

Merci d'être venu me chercher ici !

 

[eriiic]

Ouah t'es fort... comment tu sais que je suis sircroco ahahahah.

Je n'y avais pas prêté attention à ce changement de pseudo.
Je trouve ça borderline mais bon...

 

[Edd93]

ça marche ! mille fois merci. Que veut dire concrètement option explicit ?