Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel VBA>>EXCEL4 un petit bout de code

VBA>>EXCEL4 un petit bout de code

3 réponses
Avatar
Fred. P
Bonsoir Tous

étant complètement ignare en Excel4, y aurait il une âme charitable pour me
convertir se petit bout de code VBA

Private Sub Worksheet_selectionChange(ByVal Target As Excel.Range)
On Error GoTo gesterr
Application.EnableEvents = False
Application.ScreenUpdating = False
i = Range("A8").End(xlUp).Row
If Not Application.Intersect(Range("a12:V14"), Target) Is Nothing And i < 7
Then
Range("A" & i + 1) = Cells(12, ActiveCell.Column)
End If
gesterr:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
JpPradier
Bonsoir Fred

Là, tu fais appel à de vieux souvenirs. Mais il me semble qu'il n'y a pas de gestion d'évenement en
XL4. On peut juste créer une macro qui se déclenche à la validation d'une cellule bien précise .
Encore faut-il activer à l'ouverture cette macro. Exemple :

Auto_ouvrir
=Selon.Entree("Feuil1";MaMacro)
=Arreter()


MaMacro
=Alerte("La cellule "&Cellule.Appelante()&" a été activée")
=Arreter()

j-p
Avatar
Fred. P
Merci du renseignement Jp,
"JpPradier" a écrit dans le message
de news:
Bonsoir Fred

Là, tu fais appel à de vieux souvenirs. Mais il me semble qu'il n'y a pas
de gestion d'évenement en

XL4. On peut juste créer une macro qui se déclenche à la validation d'une
cellule bien précise .


Tu parle de validation ou bien d'activation?

=Alerte("La cellule "&Cellule.Appelante()&" a été activée")
=Arreter()

j-p



Avatar
JpPradier
Je parle de validationd'une valeur dans une cellule.

j-p