Aide insertion de macro deja crée
Bonsoir,
J'ai besoin de votre aide... Je n'arrive pas a modifier mon code suivant déjà existant sur le fichier dans l'onglet PORTEFEUILLE LIVRABLE :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 1 Then
.Value = Date: Cancel = True
End If
End With
End Sub
Je voulais nommer les colonnes 1,2,3 et 4... mais j'ai un "débogage" a chaque fois...
et 2eme partie :
J'aimerais insérer le code suivant sur l'onglet PORTEFEUILLE LIVRABLE mais pareil j'ai le droit à un débogage....
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
'Si la fonction activer/Déactiver est implémentée ajouter la ligne ci-dessous
If ActivationLigne Then Exit Sub
If Target.Count > 1 Then Exit Sub
If AncAdress <> 0 Then 'remettre en normal
Rows(AncAdress).Interior.ColorIndex = xlNone
Rows(AncAdress).Font.ColorIndex = 0
End If
Target.EntireRow.Font.ColorIndex = 5
Target.EntireRow.Interior.ColorIndex = 28
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
End Sub
MERCI d'avance pour votre aide
Personne pour me venir en aide ?
Ben non, tu n'expliques rien.
Je voulais nommer les colonnes 1,2,3 et 4...
Ca veut dire quoi ???
Et pourquoi sur un double-clic ? Elles changent de nom tout le temps ?
Et pour l'autre question explique plutôt ce que tu veux faire.
eric
En effet ma demande est surement confuse :/
Donc pour faire plus simple j'aimerais que lorsque je double clique sur une cellule dans la colonne A,B,C,D que la date du jour s'affiche dans la cellule sélectionner. Et par le billais de ce code VBA je sais qu'il est possible de le faire mais je n'y parviens pas...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 1 Then
.Value = Date: Cancel = True
End If
End With
End Sub
Pour la 2 eme partie j'aimerais un code VBA sur mes 3 onglets, qui lorsque je sélectionne une cellule toute la ligne soit colorée. (pour avoir un meilleur visuel des informations sur mon fichier)
J'utilise le code suivant sur un autre fichier mais sur ce fichier je n'arrive pas a l'appliquer...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
'Si la fonction activer/Déactiver est implémentée ajouter la ligne ci-dessous
If ActivationLigne Then Exit Sub
If Target.Count > 1 Then Exit Sub
If AncAdress <> 0 Then 'remettre en normal
Rows(AncAdress).Interior.ColorIndex = xlNone
Rows(AncAdress).Font.ColorIndex = 0
End If
Target.EntireRow.Font.ColorIndex = 5
Target.EntireRow.Interior.ColorIndex = 28
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
End Sub
J’espère que j'ai été plus compréhensible...
Bonjour,
Donc pour faire plus simple j'aimerais que lorsque je double clique sur une cellule dans la colonne A,B,C,D que la date du jour s'affiche dans la cellule sélectionner. Et par le billais de ce code VBA je sais qu'il est possible de le faire mais je n'y parviens pas...
If .Column < 5 ThenPour la 2 eme partie j'aimerais un code VBA sur mes 3 onglets, qui lorsque je sélectionne une cellule toute la ligne soit colorée. (pour avoir un meilleur visuel des informations sur mon fichier)
J'utilise le code suivant sur un autre fichier mais sur ce fichier je n'arrive pas a l'appliquer...
Comme tu ne l'as pas mis sur ton fichier comment veux-tu que l'on te dise l'erreur commise ?
eric
Bonjour
Je pensais que le même sujet était clos
https://forum.excel-pratique.com/excel/inserer-un-commentaire-si-donnee-existante-t58368.html
Bonjour,
Ah ouais, sympa le doublon ordaz75.
A proscrire stp
eric