[Excel VBA] Problème formule de concaténation [Résolu]

Kvo 27Messages postés 28 février 2007Date d'inscription - Dernière réponse le 17 mai 2007 à 17:41

Bonjour à tous,
J’ai un petit problème avec une concaténation en VBA sous Excel.
J’ai plusieurs tableaux identiques mais de tailles variables (en nombre de lignes) dont la dernière ligne est un total.
Je souhaite élaborer une procédure qui écrit en A1 une phrase du type : « Le total des débits est X et celui des crédits Y »
J’utilise l’instruction a = Range("A65536").End(xlUp).Row pour identifier dans chaque tableau la ligne du total. Celle-ci contient évidemment le total des débits et le total des crédits que je recherche. Illustration:
A1 900 -600
A2 500 -450
A3 400 -100
A4 Total crédits Total débits
En A1 le X et le Y ne doivent pas être figés ; si je change des données mes totaux sont actualisés, ma cellule A1 doit l’être aussi.
Sous Excel j’aurais en A1 :
= « Le total des débits est » & B4 & « et celui des crédits » & C4
Je suis incapable d’écrire la même chose en VBA… J’ai tout essayé, mais je dois avoir un problème de syntaxe. Je ne comprends notamment pas pourquoi cette commande ne marche pas :
Cells(1, 1).Formula = "= "Le total des débits est & B" & a & " & et celui des crédits & C" & a".
Les colonnes ne changent pas d'un tableau à l'autre et restent toujours B et C. La ligne, par contre, est aléatoire et est stockée dans la variable a.
Please help !

[Excel VBA] Problème formule de concaténation »

Suggestions

[Excel VBA] Problème formule de concaténation
[vba excel] insertion des formules dans les c » Forum
[VBA] Problème de guillemets (Résolu) » Forum
Excel vba copie formule -> derniere ligne (Résolu) » Forum
Excel VBA copier formule lignes varient (Résolu) » Forum
EXCEL VBA Ajouter formule avec chaîne vide (Résolu) » Forum

Plus

Réponse

Lupin.A 972Messages postés 15 mars 2006Date d'inscription 17 mai 2007 à 17:19

Bonjour,

votre concaténation est bel et bien "pas facile"

je ne suis pas sur d'avoir bien comprit, mais l'exemple
suivant devrait répondre à votre besoin ...

Sub Affichage()

    Dim Limite As Long, Syntaxe As String
    Dim PlageC As String, PlageD As String
    
    Limite = Range("A1:A65535").End(xlDown).Row
    
    PlageC = "B" & Limite
    PlageD = "C" & Limite
    
    Range("A1").Select
    Syntaxe = "=" & """" & "Le total des crédits est " & """" & "&" & PlageC & _
        "&" & """" & " Le total des débits est " & """" & "&" & PlageD
    
    ActiveCell.Offset(0, 0).Value = Syntaxe
    
End Sub
'

Lupin

Ajouter un commentaire

Réponse

Kvo 27Messages postés 28 février 2007Date d'inscription 26 avril 2007 à 13:41

Avec ta suggestion j'ai le meme problème qu'avec ma commande Formula.

VBA me dit Compile error: Expected: End of statement.
Il y a un problème de guillemets sur "le total..." je pense.

De plus, si je ne m'abuse, ta formule va me mettre la valeur actuelle des cellules en A1 mais ce n'est pas uniquement ce que je veux.
J'y veux une référence à ces cellules de sorte que si elles changent, ma cellule A1 change aussi.

D'autres idées?

Merci de ton aide.

Ajouter un commentaire

Réponse

xjl 239Messages postés 27 mars 2007Date d'inscription 26 avril 2007 à 11:48

Salut,

t'as essayé un truc du genre:
Cells(1, 1).FormulaR1C1 = "= "Le total des débits est " & Cells(a ,2).Value & " et celui des crédits est " & Cells(a,3).Value & ".""

Pas sûr que ça marche mais ça se tente...

Ajouter un commentaire

Réponse

Kvo 27Messages postés 28 février 2007Date d'inscription 17 mai 2007 à 12:50

up! :)
Il y a bien un pro de la concaténation sur ce site, non?

Ajouter un commentaire

Réponse

Kvo 27Messages postés 28 février 2007Date d'inscription 17 mai 2007 à 17:41

Merci beaucoup, c'est excellent!

Je vais pouvoir me servir de ce code comme base, car ma concaténation est en réalité plus compliquée lol.

++

Ajouter un commentaire

Répondre au sujet

Posez votre question

Dossier à la une

Passage au tout numérique : quel coût pour les particuliers ?

Passage au tout numérique : quel coût pour les particuliers ?

Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.

[Excel VBA] Problème formule de concaténation [Résolu]

[Excel VBA] Problème formule de concaténation »

Passage au tout numérique : quel coût pour les particuliers ?