Discussion :

[pikron]

Bonjour,
Tout est dans le titre (un peu long )

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With maFeuille.Cells(ligne, colonne)
     maFeuille.Range(maFeuille.Cells(ligne,colonne), .offset(0,3)).Insert shift:=xldown
End With

C'est un simple exemple, mais en gros la question c'est comment éviter de réécrire maFeuille.Cells(ligne,colonne), car on ne peut pas rien écrire.
On peut certes ici mettre juste .Offset(0, 0) et basta, mais j'aimerais quand même savoir (de manière générale) s'il y a un mot, genre Me (j'ai essayé ça marche pas ^^) pour exprimer ça.

Je sais pas si j'explique bien

[gFZT82]

Bonjour,

Si tu aimes te faire mal, tu peux écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    With maFeuille.Cells(ligne, colonne)
       maFeuille.Range(.Address, .Offset(0, 3)).Insert shift:=xlDown
    End With

mais, pour ma part, j'écrirais plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    maFeuille.Cells(ligne, colonne).Resize(1, 4).Insert shift:=xlDown

ou, si nécéssité du With

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    With maFeuille.Cells(ligne, colonne)
       .Resize(1, 4).Insert shift:=xlDown
    End With

Cordialement.

[pikron]

certes, en effet, mais de manière générale existe-t-il quelque chose pour reprendre l'objet du with sans rien mettre derrière mais sans répéter l'objet en entier non plus (with étant nécessaire dans mon hypothèse, oui)

Par exemple, là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
With newTextBox.TextFrame2
        .TextRange.Font.Name = "Arial"
        .TextRange = "Blabla."
    End With

J'aurais aimé écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
With newTextBox.TextFrame2.TextRange
        .Font.Name = "Arial"
        ?XX? = "Blabla."
    End With

Y a-t-il qqchose qui existe pour le ?XX?

[clementmarcotte]

Bonjour,

Y a-t-il qqchose qui existe pour le ?XX?

La seule chose qui peut aller là, c'est le nom d'une méthode ou d'une propriété de l'objet déclaré dans le with.

Le bloc with ne sert qu'à raccourcir les affectations des propriétés ou l'appel d'une méthode.

donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
with textbox1
     .text = "Oscar"
     .backcolor = simonac
     .enable = true
end with

ne fait que remplacer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
textbox1.text = "Oscar"
textbox1.backcolor = simonac
textbox1.enable = true

et rien d'autre. C'est uniquement une structure cosmétique qui évite une fois de temps en temps un peu d'écriture.

Même que dans VB2012 (probablement pas dans Excel), l'IntelliSense, va probablement t'afficher Textbox1, juste en écrivant le t. Cela fait que rendu-là l'intérêt d'utiliser un bloc With pour épargner de la frappe est presque nul. Il ne reste que la beauté de la présentation et une légère amélioration de la lisibilité pour justifier un bloc with.

Donc, le bloc with devrait être très bas dans tes priorités.

[AlainTech]

C'est uniquement une structure cosmétique qui évite une fois de temps en temps un peu d'écriture.

Bonjour,

Je ne suis pas d'accord.
L'utilisation du With permet au compilateur de se référer à un objet sans devoir recalculer sa définition.
Dans beaucoup de cas, ça permet un gain de temps appréciable sur de grosses boucles.

[parmi]

Dans beaucoup de cas, ça permet un gain de temps appréciable sur de grosses boucles.

Si tu avais un exemple concret j'aimerais bien faire le test.
Pour ma part, je n'utilise jamais le With... et je m'en porte très bien.
Par contre, si vraiment ça peut accélérer certains processus, je suis prêt à revoir ma façon de faire, malgré les vieilles habitudes ...