Affecter une valeur à une cellule en vb
Résolu/FerméLatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 - 28 déc. 2022 à 21:50
- Affecter une valeur à une cellule en vb
- Aller à la ligne dans une cellule excel - Guide
- Vb - Télécharger - Langages
- Excel cellule couleur si condition texte - Guide
- Verrouiller une cellule excel - Guide
- Diviser une cellule excel en deux horizontalement ✓ - Forum Excel
8 réponses
21 déc. 2022 à 13:22
Bonjour
Sheets("Ventes").Range("B3").Value=1
Cdlmnt
Via
27 déc. 2022 à 12:11
Merci via55, mais dans ce cas ça sera toujours la cellule B3, or je veux que ça soit la même cellule que celle de la feuille "appelante".
B3 si je suis en B3, mais C5 si je suis en C5... Et c'est là que je bloque
Modifié le 27 déc. 2022 à 14:20
Bonjour
Sub bbb()
Dim ref As String
ref = Sheets("Produits").ActiveCell.Address
Sheets("Ventes").Cells(ref) = 1
End Sub
actuellement déclenchement par boutop,
nous dire si autre méthode de déclenchement
bonjour Vja, bonne année
27 déc. 2022 à 14:32
Bonjour Michel et merci,
mais Cells a l'air de demander des arguments de type RowIndex, ColumnIndex, et le ActiveCell.Address renvoie par exemple $F$22.
Mais tu m'as mise sur la bonne voie quand même :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Nligne, NColonne As Integer
NLigne = ActiveCell.Row
NColonne = ActiveCell.Column
Sheets("Ventes").Cells(NLigne, NColonne) = 1
Cancel = True
End Sub
Et ça fonctionne. Merci, donc !
LatelyGeek
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question27 déc. 2022 à 16:22
Ça marche mais pourquoi faire simple quand on peut faire complqué !...
Modifié le 28 déc. 2022 à 16:49
J'ai testé ta solution, mais elle provoquait une erreur...
Si je laissais le nom de la feuille, le message était "Propriété ou méthode non gérée par cet objet" et Ref était égal à ""
et si je laissais juste Ref = ActiveCell.Adress c'était "Argument ou appel de procédure incorrect" puisque la valeur de Ref était de type "$B$9"
J'ai mal fait quelque chose ?
28 déc. 2022 à 19:49
j'avais testé avant de poster (XL 2007) et c'était OK....
bon, si ca marche chez toi, garde ta soluce ;-)
au passage: bonne année !
28 déc. 2022 à 19:52
J'ai 365... Bon, enfin en tout cas c'est grâce à tes lumières que j'ai trouvé une solution, donc encore merci et bonne année à toi aussi !!!
28 déc. 2022 à 21:13
Et j'ai une dernière question bête : Où est passé le bouton "Marqué comme résolu" ?
28 déc. 2022 à 21:43
Bonjour à tous,
michel, j'ai aussi un soucis avec ta syntaxe sur 2021.
Pour faire plus court :
Sheets("Ventes").Range(ActiveCell.Address) = 1
Bonnes fêtes de fin d'année à tous
eric
28 déc. 2022 à 21:50
Voilà, je savais qu'il existait une solution simple, élégante et épurée. Merci et bonnes fêtes de fin d'année !