|
|
|
|
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 !
Configuration: Windows XP Internet Explorer 6.0
Avec ta suggestion j'ai le meme problème qu'avec ma commande Formula.
|
Bonjour,
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 |
Copier coller feuille excel avec formule Copier formule excel vba Excel vba Excel vba activecell.formular1c1 absolu Excel vba activer macro avec bouton Excel vba ajouter formule a une cellule Excel vba fichier texte charactere Excel vba formule position absolu Excel vba insérer formule Excel vba rectangle avec formule Excel vba scrollbar Excel vba selectionner une colonne range Excel vba solver Excel vba sélection plage clic Excel-vba-francais Ouvrir fichier excel vba Tableau croise dynamique excel vba Vba formule ligne fixe colonne variable
