copier coller avec condition Résolu

Question

Bonjour, 
voila je veux faire une petit calcul dans une même feuille ou j"ai deux parties :
une partie ou je calcule et après  avoir eu un total je voudrais  des que j'actionne le bouton de mon macro le total calculé aille se coller sur la deuxième partie ceci pour chaque total calculé .Mon problème c'est comment faire  pour que le deuxième total et ainsi de suite se  positionne a chaque fois a la cellule vide qui se trouve juste en dessous de la cellule  remplie précédemment pour que j'obtienne une liste complète sur ma partie  deuxième . 
  LE Premier total positionné en haut ma donné sa:
Sub Macro2()
'
' Macro2 Macro
'

'
    Range("G17").Select
    Selection.Copy
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 mais je peux pas faire la suite car sa se colle a la meme place . lenjeu cest de ne pas aller a ecire le total a chaque juste de cliquer sr mon macro  pour le voir etre rempli a gauche etre plus rapide .

f894009 · Answer

Bonjour,

Sub affiche_total()
    With Worksheets("feuil1")
        'premiere cellule vide colonne B
        derlig = .Range("B" & Rows.Count).End(xlUp).Row + 1
        'ecriture
        .Range("B" & derlig) = .Range("G17")
    End With
End Sub

f894009 · Answer

Re,

Creer un bouton:


ensuite clic droit sur le bouton pour affecter une macro

Copier coller avec condition

2 réponses

Votre réponse

Discussions similaires