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....
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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" <Server988@hotmail.com> a écrit dans le message de news:
04af01c3ad50$2b168170$a101280a@phx.gbl...
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....
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....