XL 2016 Mettre l'année en cours dans la cellule active

D

David-DR

XLDnaute Nouveau
Bonjour à tous,
Je suis novice en VBA et je souhaiterai rajouter dans mon code, l'ajout automatiquement l'année suivant la date en colonne B de la même ligne.
Merci d'avance.

Sub nouvelle_utilisation()

' Annulation des filtres
If Sheets("Utilisation").AutoFilterMode = True Then
Sheets("Utilisation").Range("A3:K3").AutoFilter
Else
Sheets("Utilisation").Range("A3:K3").AutoFilter
End If

' Rechercher la dernière cellule A du tableau et Incrementer un n° saisie
Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"

' Rechercher la dernière cellule B du tableau et ajouter la date du jour
Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Now

' Rechercher la dernière cellule D du tableau et ajouter le Nom de l'imprimante
Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "Ultimaker 5S"

' Rechercher la dernière cellule H du tableau et ajouter le temps de preparation
Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveCell.Value = "0:30"

' Se placer sur la dernière cellule vide du tableau dans la colonne B et se décaler de 3 cellules sur la droite soit en colonne E
Range("B" & Rows.Count).End(xlUp).Offset(0, 3).Select


End Sub
 
Solution
Staple1600
Re

Et avec cette version, c'est mieux ?
VB: 
Sub n_utilisation()
Dim Valeurs, r As Range: Set r = Cells(Rows.Count, 1).End(3)(2)
Valeurs = Array("=R[-1]C+1", Date, "=IF(RC[-2]="""","""",YEAR(RC[-1]))", "Ultimaker 5S")
r.Resize(, 4).Formula = Valeurs: r.Offset(, 7) = "0:30"
End Sub
Si tu as des questions sur cette version, n'hésites pas ;)
Trier par date Trier par votes
Staple1600

Staple1600

XLDnaute Barbatruc
Bonsoir

Ma façon d'écrire ton code ;)
VB: 
Sub nouvelle_utilisation_BIS()
Dim pl&, vArr
vArr = Array("=R[-1]C+1", Date, vbNullString, "Ultimaker 5S")
'Annulation des filtres
If Sheets("Utilisation").AutoFilterMode = True Then
Sheets("Utilisation").Range("A3:K3").AutoFilter
Else
Sheets("Utilisation").Range("A3:K3").AutoFilter
End If
pl = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(pl, 1).Resize(, 4) = vArr
Cells(pl, "H") = "0:30"
End Sub
En toute logique, tu devrais avoir des questions à me poser
J'y répondrais avec plaisir ;)
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Addendum

Si j'ai bien compris, la modification pour avoir la date
Code: 
Sub nouvelle_utilisation_TER()
Dim pl&, vArr
vArr = Array("=R[-1]C+1", Year(Date), vbNullString, "Ultimaker 5S")
'Annulation des filtres
If Sheets("Utilisation").AutoFilterMode = True Then
Sheets("Utilisation").Range("A3:K3").AutoFilter
Else
Sheets("Utilisation").Range("A3:K3").AutoFilter
End If
pl = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(pl, 1).Resize(, 4) = vArr
Cells(pl, "H") = "0:30"
End Sub
 
Vote positif 0 Vote négatif
D

David-DR

XLDnaute Nouveau
Staple1600 à dit:
Addendum

Si j'ai bien compris, la modification pour avoir la date
Code: 
Sub nouvelle_utilisation_TER()
Dim pl&, vArr
vArr = Array("=R[-1]C+1", Year(Date), vbNullString, "Ultimaker 5S")
'Annulation des filtres
If Sheets("Utilisation").AutoFilterMode = True Then
Sheets("Utilisation").Range("A3:K3").AutoFilter
Else
Sheets("Utilisation").Range("A3:K3").AutoFilter
End If
pl = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(pl, 1).Resize(, 4) = vArr
Cells(pl, "H") = "0:30"
End Sub
Cliquez pour agrandir...
Bonjour,

Non, la date je l'ai.
Mon code est effectivement plus long et certainement moins performant que le votre.
Je chercher simplement a rajouter l'inscription de l'année dans la cellule à coté de la date.
Et il est toujours intéressent d'avoir des conseil afin de simplifier son code.

Sinon effectivement, j'essaye de comprendre le votre.
Vous déclarez les variables don j'ai encore du mal a comprendre.

Dim pl&, vArr
vArr = Array("=R[-1]C+1", Date, vbNullString, "Ultimaker 5S")
Est-ce que la mention pl fait référence à pl = Cells(Rows.Count, 1).End(xlUp).Row + 1 ?
-----
je ne comprends pas vArr = Array("=R[-1]C+1", Date, vbNullString, "Ultimaker 5S")
-----
Est-ce que Dim pl&, vArr et la diminution du code écrit ci-dessous ?
Dim pl
Dim vArr
-----
pl = Cells(Rows.Count, 1).End(xlUp).Row + 1
Si je comprends bien la variable pl, elle donne l'ordre de rechercher la dernière cellule vide de la colonne A
-----
Cells(pl, 1).Resize(, 4) = vArr
On vas chercher la dernière cellule vide de la colonne A et que sur les 4 1ère cellules, on applique la variable vArr.

j’avoue, que j'ai un peu de mal et que sur la 3ème cellule l'année ne c'est pas inscrite.
Pourriez-vous m’expliquer plus en détail le raisonnement de votre code ?
Merci d'avance
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Bonjour le fil, David-DR

Quelques explications matinales
Code: 
Sub nouvelle_utilisation_TER_A()
'Déclarations des variables
Dim pl&, vArr
'pl pour premiere ligne vide
'On remplit le tableau vArr (Array en anglais) avec les valeurs que l'on veut mettre dans les cellules
vArr = Array("=R[-1]C+1", Year(Date), vbNullString, "Ultimaker 5S")
'Annulation des filtres
If Sheets("Utilisation").AutoFilterMode = True Then
Sheets("Utilisation").Range("A3:K3").AutoFilter
Else
Sheets("Utilisation").Range("A3:K3").AutoFilter
End If
'ici on détermine donc la 1er ligne vide de la colonne A
'en partant de la fin de la feuille
pl = Cells(Rows.Count, 1).End(xlUp).Row + 1
'On trouve donc la 1er cellule vide de la colonne A
'On redimensionne la plage
'MsgBox Cells(pl, 1).Resize(, 4).Address '-< pour test
'Dans cette nouvelle plage de cellules, on insére en 1 seule fois le contenu du tableau vArr
Cells(pl, 1).Resize(, 4) = vArr
'Dans la colonne H de la ligne pl, on insére "0:30"
Cells(pl, "H") = "0:30"
End Sub

Maintenant pour ce qui concerne l'année.
Dans quelle colonne, tu veux insérer l'année?
Dans mon dernier code, l'année est insérée en colonne B.
 
Vote positif 0 Vote négatif
D

David-DR

XLDnaute Nouveau
Staple1600 à dit:
Bonjour le fil, David-DR

Quelques explications matinales
Code: 
Sub nouvelle_utilisation_TER_A()
'Déclarations des variables
Dim pl&, vArr
'pl pour premiere ligne vide
'On remplit le tableau vArr (Array en anglais) avec les valeurs que l'on veut mettre dans les cellules
vArr = Array("=R[-1]C+1", Year(Date), vbNullString, "Ultimaker 5S")
'Annulation des filtres
If Sheets("Utilisation").AutoFilterMode = True Then
Sheets("Utilisation").Range("A3:K3").AutoFilter
Else
Sheets("Utilisation").Range("A3:K3").AutoFilter
End If
'ici on détermine donc la 1er ligne vide de la colonne A
'en partant de la fin de la feuille
pl = Cells(Rows.Count, 1).End(xlUp).Row + 1
'On trouve donc la 1er cellule vide de la colonne A
'On redimensionne la plage
'MsgBox Cells(pl, 1).Resize(, 4).Address '-< pour test
'Dans cette nouvelle plage de cellules, on insére en 1 seule fois le contenu du tableau vArr
Cells(pl, 1).Resize(, 4) = vArr
'Dans la colonne H de la ligne pl, on insére "0:30"
Cells(pl, "H") = "0:30"
End Sub

Maintenant pour ce qui concerne l'année.
Dans quelle colonne, tu veux insérer l'année?
Dans mon dernier code, l'année est insérée en colonne B.
Cliquez pour agrandir...

Bonjour,
Merci pour ce retour.
j'avoue que j'ai quand même un peu de mal à comprendre toute la composition de la variable vArr.
en ce qui concerne l'année, dans mon code je pensais avoir mis la date suite à mes recherches sur le net.
Et cela me rentre bien la date comme je le souhaite.
mon problème est que dans mon TDC, le filtre de la date n'est pas classé par mois et année.
d’où mon besoin de rajouter une colonne indiquant l'année.

1647761836112.png

1647761335786.png
1647761629910.png
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Bonjour

Est-ce que c'est plus clair avec ce petit exemple (à tester sur une feuille vierge)
VB: 
Sub Exemple_A()
[A1:D1] = "" 'juste pour le test (effacement)
[A1].FormulaLocal = "=AUJOURDHUI()"
[B1].FormulaLocal = "=LIGNE()"
[C1].Value = 123
[D1].Value = "ABC"
End Sub
Sub Exemple_B()
Dim vArr
vArr = Array("=AUJOURDHUI()", "=LIGNE()", 123, "ABC")
[A1:D1] = "" 'juste pour le test (effacement)
[A1:D1].FormulaLocal = vArr
End Sub
Lance la macro Exemple_A et regarde le résultat obtenu
Puis lance la macro Exemple_B, tu verras que le résultat est le même
La seule différence c'est que la macro Exemple B insére les valeurs en utilisant une seule ligne de code VBA

Pour revenir à ta question, comme tu n'as pas joint de fichier exemple ni évoqué la présence de TCD, je peux pas jouer les Madame Irma ;)

Donc joins un fichier exemple représentatif (allégé et anonymisé) pour qu'il soit plus facile de t'aider.
 
Vote positif 0 Vote négatif
D

David-DR

XLDnaute Nouveau
Staple1600 à dit:
Bonjour

Est-ce que c'est plus clair avec ce petit exemple (à tester sur une feuille vierge)
VB: 
Sub Exemple_A()
[A1:D1] = "" 'juste pour le test (effacement)
[A1].FormulaLocal = "=AUJOURDHUI()"
[B1].FormulaLocal = "=LIGNE()"
[C1].Value = 123
[D1].Value = "ABC"
End Sub
Sub Exemple_B()
Dim vArr
vArr = Array("=AUJOURDHUI()", "=LIGNE()", 123, "ABC")
[A1:D1] = "" 'juste pour le test (effacement)
[A1:D1].FormulaLocal = vArr
End Sub
Lance la macro Exemple_A et regarde le résultat obtenu
Puis lance la macro Exemple_B, tu verras que le résultat est le même
La seule différence c'est que la macro Exemple B insére les valeurs en utilisant une seule ligne de code VBA

Pour revenir à ta question, comme tu n'as pas joint de fichier exemple ni évoqué la présence de TCD, je peux pas jouer les Madame Irma ;)

Donc joins un fichier exemple représentatif (allégé et anonymisé) pour qu'il soit plus facile de t'aider.
Cliquez pour agrandir...
Merci pour toutes ces explications.
j'ai fait le fichier simplifié pour plus de compréhension.
Merci beaucoup pour le temps que vous consacrez pour aider.
cdt
David
 

Pièces jointes

  • Test utilisation imprimantes.xlsm
    113 KB · Affichages: 1
Vote positif 0 Vote négatif
D

David-DR

XLDnaute Nouveau
Staple1600 à dit:
Re

Je vois que ma simplification du message#3 ne t'a pas convaincu ?
;)
Vu qu'elle ne retrouve pas dans ton fichier exemple
Cliquez pour agrandir...
Non ce n'est pas cela.
Elle est présente dans le fichier mais je n'ai pas mis de bouton pour l'utilisation.
Je vais bien évidemment creuser pour optimiser mon code avec ta solution, mais quand j'actionne la macro, je n'ai pas le remplissage de l'année sous format 2022 en fonction de la date. Après je peux m'en passer et mettre une formule et là ton code me convient tout à fait, car beaucoup plus simplifié. 😉
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

Et avec cette version, c'est mieux ?
VB: 
Sub n_utilisation()
Dim Valeurs, r As Range: Set r = Cells(Rows.Count, 1).End(3)(2)
Valeurs = Array("=R[-1]C+1", Date, "=IF(RC[-2]="""","""",YEAR(RC[-1]))", "Ultimaker 5S")
r.Resize(, 4).Formula = Valeurs: r.Offset(, 7) = "0:30"
End Sub
Si tu as des questions sur cette version, n'hésites pas ;)
 
Vote positif 0 Vote négatif
Solution
D

David-DR

XLDnaute Nouveau
Staple1600 à dit:
Re

Et avec cette version, c'est mieux ?
VB: 
Sub n_utilisation()
Dim Valeurs, r As Range: Set r = Cells(Rows.Count, 1).End(3)(2)
Valeurs = Array("=R[-1]C+1", Date, "=IF(RC[-2]="""","""",YEAR(RC[-1]))", "Ultimaker 5S")
r.Resize(, 4).Formula = Valeurs: r.Offset(, 7) = "0:30"
End Sub
Si tu as des questions sur cette version, n'hésites pas ;)
Cliquez pour agrandir...
Nickel il répond à mon besoin.
Je vais regarder de plus prés ton code et si j'ai des questions je reviens vers toi.
En tout cas merci beaucoup. bon dimanche.
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
RE

Sinon, si tu transformais ton tableau en tableau structuré, Excel s'occuperait de tout
(sans macro) et ce serait plus simple pour le TCD
(Dans un tableau structuré, les formules et le format se répliquent automatiquement sur la nouvelle ligne créée)
 
Vote positif 0 Vote négatif
D

David-DR

XLDnaute Nouveau
Staple1600 à dit:
RE

Sinon, si tu transformais ton tableau en tableau structuré, Excel s'occuperait de tout
(sans macro) et ce serait plus simple pour le TCD
(Dans un tableau structuré, les formules et le format se répliquent automatiquement sur la nouvelle ligne créée)
Cliquez pour agrandir...
Oui je suis d'accord avec toi, mais comme ce fichier est alimenté par toute mon équipe,
J'ai des personnes super doués en informatique qui ont réussi à le planter et par la même occasion mon tableau bord. D'où la macro afin de pré-remplir le tableau.
Et les macros avec les tableaux structurés, j'ai du mal.
 
Vote positif 0 Vote négatif

Discussions similaires

H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
323
Phil69970
Phil69970
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
534
Zonmé
Z
M
  • Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
218
MBEPID
M
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
135
escudo
E
AIXELS
  • Question
Microsoft 365 Afficher récap mois en cours dans un Label
Réponses
12
Affichages
389
AIXELS
AIXELS
piga25
  • Résolu(e)
XL 2016 Mettre la même couleur de la dernière cellule colorée
Réponses
5
Affichages
329
TooFatBoy
TooFatBoy
F
  • Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
302
Oneida
Oneida
U
  • Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
328
Phil69970
Phil69970
S
  • Résolu(e)
XL 2016 Besoin d'aide pour un code d'extraction
Réponses
14
Affichages
542
Phil69970
Phil69970
AlCapone
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
155
AlCapone
AlCapone

Membres actuellement en ligne

7 membres et 112 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 089
Messages
2 116 099
Membres
112 661
dernier inscrit
ceucri