Discussion :

[MAMANHOU]

Bonjour,

J'ai un tableau d'analyse financière de 6 colonnes que l'on remplit par date croissante.
J'ai un 2ème tableau de 5 colonnes qui doit se remplir par date décroissante avec les données du 1er tableau.

J'aurai besoin de connaitre le code d'une macro qui va chercher la dernière colonne saisie. J'ai beau chercher je ne sais pas comment faire.


Merci d'avance
Mamanhou

[ouskel'n'or]

Si tu indique le N° de ligne, tu peux utiliser cette syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    NoLigne = 10
    DerniereColonne = Cells(NoLigne, Rows(NoLigne).Cells.Count).End(xlToLeft).Column

A+

[MAMANHOU]

Merci pour la rapidité de votre réponse,

J'ai créer une macro avec le codage que vous me donnez et il ne se passe rien ...
J'ai essayer avec un n° de ligne différent c'est pareil

En fait je voudrais que la colonne entiere soit renseignée et pas seulement la ligne

Ci dessous le modèle du résultat que j'aimerai obtenir



Merci
Mamanhou

[ouskel'n'or]

Il eut été mieux que tu mettes les No de lignes et de colonne sur ton aperçu Enfin, tu adapteras.
Je suppose que tes données à copier sont sur la plage "C3:G7" et que tu veux les copier en "C13:G17"
Tu instancies ta plage à copier
Tu fixes le départ du collage en No de ligne et de colonne (on part de la fin pour le "collage")
Il ne reste plus qu'à coller

Revu et corrigé (j'avais défini la plage en dur ("c3:G7") au lieu de la définir en dynamique pour s'adapter au nombre de colonnes renseignées ("C3:NoCol & 7)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
Dim Plage1 As Range, cell As Range
Dim NoCol, NoLigne, MemCol
    NoLigne = 3
    NoCol = Cells(NoLigne, Rows(NoLigne).Cells.Count).End(xlToLeft).Column
    MemCol = NoCol
    Set Plage1 = Range("C3:" & Cells(7, NoCol).Address)
      For Each cell In Plage1
           Cells(cell.Row + 10, NoCol) = cell
           If NoCol > 3 Then
                 NoCol = NoCol - 1
             Else
                 NoCol = MemCol
           End If
      Next
End Sub

A+

[MAMANHOU]

j'ai adapté le code au n° de ligne et de colonne cela marche pour ce qui est de collage en partant de la fin mais si mes colonnes de la fin ne sont pas toutes renseignés il me met une colonne vide. Comment modifier le code pour éviter cela ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton2_Click()
 
Dim Plage1 As Range, cell As Range
Dim NoCol, NoLigne, MemCol
    NoLigne = 3
    NoCol = Range("C1").SpecialCells(xlCellTypeLastCell).Column
    MemCol = NoCol
    Set Plage1 = Range("C1:I" & NoCol)
      For Each cell In Plage1
           Cells(cell.Row + 9, NoCol) = cell
           If NoCol > 3 Then
                 NoCol = NoCol - 1
             Else
                 NoCol = MemCol
           End If
      Next
End Sub

Exemple ci dessous

Merci encore
Mamanhou

[ouskel'n'or]

Tu veux dire : "si toules les lignes de la dernière colonne ne sont pas renseignées..." ? C'est ça qui te chiffonne ?