SVP je veux donné des reference lord de la sélection d'une cellu
Résolu
Haitam_mhamdi
-
Haitam_mhamdi -
Haitam_mhamdi -
A voir également:
- SVP je veux donné des reference lord de la sélection d'une cellu
- Reference pto - Accueil - Box & Connexion Internet
- Indice de référence des loyers - Guide
- Excel la référence n'est pas valide - Forum Excel
- L'url suivante, censée aboutir à un article, donne lieu à une redirection indiquant que la page n'a pas été trouvée. retrouvez la page recherchée. reportez le titre de l’article et son auteur. - Forum Microsoft Edge / Internet Explorer
- L'indice n'appartient pas à la sélection vba ✓ - Forum VB / VBA
4 réponses
Bonjour,
Sur quoi bloques tu ?
Pour le déclenchement dans la feuille ... regarde la méthode Worksheet_SelectionChange
Le paramètre "target" contient les coordonnées de la cellule selectionnée..
Tu peux donc regarder si tu es dans la colonne A
Par exemple :
Pour avoir l'année en cours : Year(Date)
Le mois : MONTH(date)
Le jour : DAY(date)
Pour concaténer du texte avec des variables .. il faut utiliser le symbole &
par exemple
Pour mettre une valeur dans une cellule :
A utiliser avec le Target de la méthode Worksheet_SelectionChange
Cordialement,
Jordane
Sur quoi bloques tu ?
Pour le déclenchement dans la feuille ... regarde la méthode Worksheet_SelectionChange
Le paramètre "target" contient les coordonnées de la cellule selectionnée..
Tu peux donc regarder si tu es dans la colonne A
Par exemple :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
MsgBox "Click on " & Target.Address
End If
End Sub
Pour avoir l'année en cours : Year(Date)
Le mois : MONTH(date)
Le jour : DAY(date)
Pour concaténer du texte avec des variables .. il faut utiliser le symbole &
par exemple
unevariable = "qqchose" uneautrevariable = 2017 toto = unevariable & "-du_texte" & uneautrevariable
Pour mettre une valeur dans une cellule :
'cellule étant un objet range
cellule.value = unevaleur
'Ou
Range("A1").value = unevaleur
'Ou encore
Cells(1,1).value = unevaleur
A utiliser avec le Target de la méthode Worksheet_SelectionChange
Target.value = unevariable
Cordialement,
Jordane
Bonjour Haitam_mhamdi,
Tu as très bien fait d'ouvrir un 2ème sujet, comme Vaucluse
te l'avait demandé dans son message du 15 août à 19:49 ;
c'est exceptionnel car d'habitude, c'est à éviter ! ;)
Je te dois des excuses, car ton exercice est plus simple que
je le pensais et donc tu avais bien donné toutes les infos
nécessaires (je croyais qu'il en manquait).
Fichier Excel 2007 : https://mon-partage.fr/f/TLUm3r67/
Tu as juste à te placer sur une cellule de la colonne A.
Alt F11 pour voir le code de Feuil1
Alt F11 pour revenir sur Excel
Merci de me donner ton avis.
Cordialement
Tu as très bien fait d'ouvrir un 2ème sujet, comme Vaucluse
te l'avait demandé dans son message du 15 août à 19:49 ;
c'est exceptionnel car d'habitude, c'est à éviter ! ;)
Je te dois des excuses, car ton exercice est plus simple que
je le pensais et donc tu avais bien donné toutes les infos
nécessaires (je croyais qu'il en manquait).
Fichier Excel 2007 : https://mon-partage.fr/f/TLUm3r67/
Tu as juste à te placer sur une cellule de la colonne A.
Alt F11 pour voir le code de Feuil1
Alt F11 pour revenir sur Excel
Merci de me donner ton avis.
Cordialement
Bonjour le forum,
J'ajoute mon code VBA (à placer dans le code de la feuille) :
Cordialement
J'ajoute mon code VBA (à placer dans le code de la feuille) :
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Columns("A")) Is Nothing _
Then ActiveCell = "MCSH-" & Format(Day(Date), "00") _
& Format(Month(Date), "00") & "-L-" & Year(Date)
End Sub
Cordialement
Bonjour Claude
Merci pour votre attention et votre aide ma question a été résolut merci claude et merci le forum
Merci pour votre attention et votre aide ma question a été résolut merci claude et merci le forum