Bonjour à tous,

j'ai écrit ce code qui fonctionne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Sub tata (ligne As Integer, colonne As Integer)
 
    With Feuil1.Cells(ligne, colonne)
        .Value = "toto"
        .Offset(0, 1) = "titi"
    End With
 
        ecritureRaccourci Feuil1.Cells(ligne, colonne)
 
End Sub
en sachant que
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 Sub ecritureRaccourci(ByRef Target As Range)
Ma demande est la suivante:
j'aimerais ne pas avoir à réécrire Feuil1.Cells(ligne,colonne) lors de l'appel de ecritureRaccourci

en général je triche en utilisant .value quand j'ai besoin de la valeur des cellules définies par le bloc with.

Mon code fonctionne avec le premier code présenté, j'aimerais juste améliorer mon écriture.

Merci d'avance!