Vba créer tableau

Résolu
rimoa Messages postés 153 Date d'inscription   Statut Membre Dernière intervention   -  
rimoa Messages postés 153 Date d'inscription   Statut Membre Dernière intervention   -

Bonjour,

J'ai besoin de votre aide merci.

je suis en train de monter un code et suis coincée, je veux aller à la fin de la colonne, ensuite 'tourner à droite et créer un petit tableau de 4 colonnes et deux lignes.l

Voici mon début :

Range("AP1").Select
Selection.End(xlDown).Select
ActiveCell.FormulaR1C1 = "Total"

Comment me déplacer dans tous les sens. Par exemple je veux plutôt écrire 'Total' dans la cellule à droite, et faire ce pas 3 autres fois pour monter les titres des quatre colonnes voir ci-dessous, puis descendre à la deuxième ligne pour mettre la formule de somme.

Total     Achat    Vente   Bonus

J'espère que c'est assez clair et merci d'avance.


Windows / Chrome 104.0.0.0

5 réponses

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     

    Bonjour

    En utilisant offset(nb_lignes,nb_colonnes)

    Exemple en partant de "AP1"

    Dim celdeb As Range
    Set celdeb = Range("AP1")
    celdeb.Offset(0, 1).Value = "total"
    celdeb.Offset(0, 2).Value = "achat"
    celdeb.Offset(0, 3).Value = "vente"
    celdeb.Offset(0, 4).Value = "bonus"
    celdeb.offset(1,1).Value = "...."

    Cdlmnt

    1
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     

    Bonjour

    1. cette instruction n'a pas à y être

    Selection.End(xlDown).Select

    2. Pour le reste, ceci répond à la question posée

    Sub testmacro()
    Dim celtab As Range
    Set celtab = Range("AP1")
    celtab.Offset(0, 1).Value = "Total"
    celtab.Offset(0, 2).Value = "Achat"
    celtab.Offset(0, 3).Value = "Vente"
    celtab.Offset(0, 4).Value = "Bonus"
    celtab.Offset(1, 1).Value = Application.WorksheetFunction.Sum(Columns(10))
    End Sub

    https://www.cjoint.com/c/LHEnmCuTkOB

    Ctrl+k pour lancer la macro

    Cdlmnt

    1
  3. rimoa Messages postés 153 Date d'inscription   Statut Membre Dernière intervention   1
     

    Merci beaucoup pour la réponse rapide je vais l'essayer et revenir

    0
  4. rimoa Messages postés 153 Date d'inscription   Statut Membre Dernière intervention   1
     

    Je ne sais pas ce que j'ai manqué il ne bouge pas voici j'ai copié collé ce que j'avais mis, il me donne erreur dans la 4e ligne dont le titre total. 

    Aussi, sur cette ligne comment mettre la valeur de la somme de la colonne 10, est ce que ceci pourra fonctionner "=SUM(C[10])"

    Sub testmacro()
    Dim celtab As Range
    Set celtab = Range("AP1")

    Selection.End(xlDown).Select
    Celtab.Offset(0, 1).Value = "Total"
    Celtab.Offset(0, 2).Value = "Achat"
    Celtab.Offset(0, 3).Value = "Vente"
    Celtab.Offset(0, 4).Value = "Bonus"
    Celtab.Offset(1, 1).Value = ""
    End Sub

    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. rimoa Messages postés 153 Date d'inscription   Statut Membre Dernière intervention   1
     

    Merci beaucoup ça fonctionne

    0