Offset

[Bruce68]

Bonsoir à tous

dans le fichier joint je voudrais recopier la valeur de la cellule colorisée en noire (Feuil1) dans la Feuil2 suivant le mois de la date du jour et mettre les valeurs du meme mois les unes sous les autres.
La macro reste toujours sur la meme cellule elle ne descent pas de + 1 cellule.
Que faut mettre dans la macro pour que cela fonctionne .

Je vous remercie de votre aide.

 

[Banzai64]

Re : Offset

Bonsoir

A tester

Sub test()
Dim mois As Long, TTC As Long

    TTC = Range("B3")
   
    If Range("B3") = 0 Then Exit Sub
    mois = Month(Date)
    Range("A1").Select
    With Sheets("Feuil2")
      .Cells(.Cells(65536, mois).End(xlUp).Row + 1, mois) = TTC
    End With
End Sub

 

[Bruce68]

Re : Offset

Bonsoir Banzai64 et le forum

Merci pour la réponse rapide et en plus cela fonctionne.

Bonne soirée à tous

 

[Excel-lent]

Re : Offset

Bonsoir Bruce68,

Tu m'en veux pas trop? J'ai solutionné ton problème sans utiliser "Offset" ni "mid", et pourtant ça fonctionne très bien.

Ca te va quand même 😉

Sub test()
Dim mois As Long, TTC As Long

   TTC = [B3]
   mois = Month(Now)
   If [B3] = 0 Then Exit Sub
   With Sheets("Feuil2")
       .Cells(.Cells(65536, mois).End(xlUp).Row + 1, mois) = TTC
   End With
    
End Sub

Bonne fin de WE

Edition : bonsoir tous le monde, j'avais pas rafraichis avant de poster. Je vois qu'on est tous partie dans la même direction 🙂

 

[Bruce68]

Re : Offset

Bonsoir Exel-Lent Banzai et le forum
Exel-lent cela me va tres bien aussi.
Une petite question comment fonctionne la ligne: .Cells(.Cells(65536, mois).End(xlUp).Row + 1, mois) = TTC
Je n'arrive pas à trouver .
Je vous remercie et vous souhaite une bonne soirée

 

[Banzai64]

Re : Offset

Bonjour

.Cells(.Cells(65536, mois).End(xlUp).Row + 1, mois)

cela peut se traduire par
cellule(ligne, colonne)
La partie rouge va donner la 1ère ligne libre dans la colonne ayant comme numéro "mois"
On se positionne en bas de la colonne (ligne 65536) puis on remonte jusqu'à ce que l'on trouve une ligne non vide (End(xlUp)) et on descend d'une ligne (+1)

 

[Bruce68]

Re : Offset

Bonjour Banzai64 et le forum

Merci pour l'explication

Bonne journée à tous