coller une selection si condition

Question

Bonjour,

Je suis débutant dans la programmation et j'espère qu'il est possible de trouver une solution. J'ai parcouru le forum mais je n'ai pas trouver de réponse.

Je vous explique mon énigme :(tout se passe sur la même feuille) :

Sur la sélection C4:C24 j'ai une série de chiffre avec en C4 le mois.

En dessous j'ai un tableau de C29 à O49 avec sur la ligne C29/N29 tous les mois de l'année.

Je voudrais que lorsque la cellule C4 change (par exemple devient MARS), les éléments qui sont dessous (C5:C24) soient collés en valeur sous le mois qui correspond dans le tableau C29/O49.

Est-ce possible ?

Merci, guillaume.

rv83toulon · Answer

Bonjour,
j'utiliserais la fonction "Find" afin de retrouver le mois dans la plage C29:O49, si je trouve alors je copie la plage C5:C24 en dessous, comme ceci :Sub copier_coller()
Dim vval As String, vrech As Range

With Sheets("Feuil1")
'Donne à la variable vval la valeur de la cellule C4
vval = .Range("C4").Value

'Recherche dans la plage C29:O49 la valeur de vval
Set vrech = .Range("C29:O49").Find(vval)

'Si je la trouve alors je copie la plage C5:C24 en dessous
If Not vrech Is Nothing Then .Range("C5:C24").Copy vrech.Offset(1, 0)

End With
End Sub

Tiens moi au courant
@+

Coller une selection si condition

1 réponse

Votre réponse

Discussions similaires