Macro pour un copier coller conditionel

[fd.30]

Bonjour à tous,

J'ai une cellule "H3" qui prend obligatoirement comme valeur : 1 ou 2 ou 3.

Je voudrais une macro qui réalise une copie de cellules en fonction de la valeur de H3:

c'est à dire :

- si H3 = 1 alors faire une copie des cellules [K151 : K182] vers [I151 : I182]

- si H3 = 2 alors faire une copie des cellules [L151 : L182] vers [I151 : I182]

- si H3 = 3 alors faire une copie des cellules [M151 : M182] vers [I151 : I182]

H3 est forcément 1 ou 2 ou 3

Merci de votre aide

FD

 

[Cousinhub]

Re : Macro pour un copier coller conditionel

Bonjour, tu peux essayer ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$3" Then
    Range(Cells(151, 10 + Target), Cells(182, 10 + Target)).Copy _
                Range(Cells(151, 9), Cells(182, 9))
End If
End Sub

 

[skoobi]

Re : Macro pour un copier coller conditionel

Bonsoir,

voici un exemple simple (une bonne initiation au VBA )

Sub copie()
Select Case Range("H3").Value
Case 1
    Range("K151:K182").Copy Range("I151")
Case 2
    Range("L151:L182").Copy Range("I151")
Case 3
    Range("M151:M182").Copy Range("I151")
End Select
End Sub

Edit: bonsoir bhbh

 

[fd.30]

Re : Macro pour un copier coller conditionel

Merci bien BHBH et Skoobi, c'est parfait.
FD