[VBA] Formule en valeur absolueRésolu/Fermé

Question

Bonjour à tous, 

Je dois imputer, par VBA, à certaines cellules, des formules faisant référence à une feuille différente. J'ai cru un moment que de passer par des formules en valeur absolue serait possible. Ainsi j'ai tenté le code qui suit, peut-être innocemment, qui ne marche pas (sachant que mon Colonne1 récupère bel et bien une lettre) : 

xlSheet2.Range("B8").Value = "=Données_Tous_Découpages'!$" & Colonne1 & "$2"
Y a-t'il moyen de garder cette méthode, en trouvant les parties qui clochent, ou alors est-ce tout simplement impossible de la sorte? 

Si c'est impossible, comment opérer au + facile (toujours en gardant la méthode valeur absolue si possible)? ... je pense à Cells(x,y).Address ... mais si vous connaissez plus court. 

Merci d'avance.

thev · Answer

xlSheet2.Range("B8").Value = 
"=" & Sheets("Données_Tous_Découpages").Columns(colonne1).Rows(2).Address(1, 1, 1, 1)

Palteza · Answer

Merci thev pour l'intérêt porté.  

J'ai failli venir dire que ça marchait pas (dans l'incompréhension j'avoue) ... en fait la cellule sur laquelle je testais était en police blanche ... ^^"  

Sinon les deux façons suivantes fonctionnent (il attend un chiffre dans Columns de ton code thev):  

xlSheet2.Range("B8").Value = "=Données_Tous_Découpages!$" & Colonne1 & "$2"  
--------------------------------------------------------------------------------------------- 
xlSheet2.Range("B8").Value =   
"=" & Sheets("Données_Tous_Découpages").Columns(6).Rows(2).Address(1, 1, 1, 1)

Merci encore

Palteza · Answer

Je reviens à la charge, car lors de l'insertion d'une vraie fonction (et non pas juste une référence à une autre cellule), ma méthode ne marche pas (du moins il indique #NOM? ... le calcul se fait lorsqu'on rentre dans la barre de formule, et qu'on appuie sur Entrée ... problème de reconnaissance de format?)  

Comment contourner ça, ou thev si tu suis toujours le fil, comment tu transposerais dans ta méthode? 

Voilà le code qui "ne marche pas" :  

xlSheet.Range("D37").Value = "=SOMME(Données_Tous_Découpages!$" & Colonne1 & "$5:$" & Colonne1 & "$9)"

Palteza · Answer

Ah ok merci bien eric, c'est ça ... 

Donc voilà le code qui marche au final (où Colonne1 est une lettre) : 

xlSheet.Range("D37").Value = "=SUM(Données_Tous_Découpages!$" & Colonne1 & "$5:$" & Colonne1 & "$9)"

[VBA] Formule en valeur absolue

4 réponses

Discussions similaires

Newsletters