Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Copy past

1 réponse
Avatar
Server
Bonjour

Je travaille en ce moment sur un petit programme de=20
compatibilit=E9 sur Excel 2k3 pour un ami et je voudrais=20
bien savoir comment :

- Si la valeur de la cellule F4 ,par exemple, change et=20
devienne sup=E9rieur 1 alors A4:F4
va =EAtre copier sur A14:F14 et bien sur ceci si cette=20
colonne donc A14:F14 est vide sinon elle va =EAtre copier=20
coller dans A15:F15 et l=E0 aussi si elle vide sinon sur=20
A16:F16 et ainsi de suite....

Merci d'avance

1 réponse

Avatar
ru-th
Salut
à mettre dans le module de la feuille concernée
Private Sub Worksheet_Change(ByVal Target As Range)
If [F4] > 1 Then
Application.EnableEvents = False
If Range("A65536").End(3).Row + 1 < 14 Then
ligne = 14
Else: ligne = Range("A65536").End(3).Row + 1
End If
Range("A" & ligne & ":F" & ligne).Value = Range("a4:F4").Value
'effacement de A4:F4
[A4:F4].ClearContents
Application.EnableEvents = True
End If
End Sub

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Server" a écrit dans le message de news:
04af01c3ad50$2b168170$
Bonjour

Je travaille en ce moment sur un petit programme de
compatibilité sur Excel 2k3 pour un ami et je voudrais
bien savoir comment :

- Si la valeur de la cellule F4 ,par exemple, change et
devienne supérieur 1 alors A4:F4
va être copier sur A14:F14 et bien sur ceci si cette
colonne donc A14:F14 est vide sinon elle va être copier
coller dans A15:F15 et là aussi si elle vide sinon sur
A16:F16 et ainsi de suite....

Merci d'avance