Microsoft 365 Remplissage auto

[ROI1482]

Bonjour à tous et meilleurs vœux.
je voudrai automatiser une tâche répétitive dans des classeurs excel.
A l'ouverture je sélectionne une cellule A... qui sera différente suivant les classeurs.
Dans mon exemple je sélectionne a16

En A16 dans ce cas je voudrai écrire 31/12/2025
en C16 INV
en d16 0.00
en e16 0.00
surligner en jaune la ligne de A16 à h16 .
Je joint le fichier tableau comme exemple sachant que dans un autre classeur je sélectionnerai AXXX
Merci par avance si cela est possible

 

[Dand87]

Bonjour à tous et meilleurs vœux.
je voudrai automatiser une tâche répétitive dans des classeurs excel.
A l'ouverture je sélectionne une cellule A... qui sera différente suivant les classeurs.
Dans mon exemple je sélectionne a16

En A16 dans ce cas je voudrai écrire 31/12/2025
en C16 INV
en d16 0.00
en e16 0.00
surligner en jaune la ligne de A16 à h16 .
Je joint le fichier tableau comme exemple sachant que dans un autre classeur je sélectionnerai AXXX
Merci par avance si cela est possible

Bonjour,

Dans l'exemple fourni, on souligne en jaune que si... la colonne C est égale à "INV" ou les stocks sont sous un seuil donné ou selon d'autres critères?

 

[Dand87]

J'ai mis le surlignement si on a une date et qu'on a "INV" dans la colonne C.
De plus, j'ai mis en A2 un hyperlien qui te positionne la la fin des données pour une nouvelle entrée.

 

[ROI1482]

J'ai mis le surlignement si on a une date et qu'on a "INV" dans la colonne C.
De plus, j'ai mis en A2 un hyperlien qui te positionne la la fin des données pour une nouvelle entrée.

Merci pour cette solution, par contre je ne trouve pas de macro pour écrire la date , INV 0.00 ET 0.00 à chaque ouverture de fichier

 

[Dand87]

Merci pour cette solution, par contre je ne trouve pas de macro pour écrire la date , INV 0.00 ET 0.00 à chaque ouverture de fichier

Désolé, je ne fais pas de VBA, je laisse la main à d'autres.
Bonne journée

 

[Nain porte quoi]

Hello,

à adapter

Sub Final
    Dim Adr_Proc_Cellule

    Adr_Proc_Cellule = Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Address
    Range(Adr_Proc_Cellule) = #12/31/2025#
    Range(Adr_Proc_Cellule).Offset(, 2) = "INV"
    Range(Adr_Proc_Cellule).Offset(, 3) = "0"
    Range(Adr_Proc_Cellule).Offset(, 4) = "0"
   
    Range(Adr_Proc_Cellule).Resize(1, 8).Interior.Color = vbYellow
End Sub

 

[ROI1482]

Hello,

à adapter

Sub Final
    Dim Adr_Proc_Cellule

    Adr_Proc_Cellule = Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).Address
    Range(Adr_Proc_Cellule) = #12/31/2025#
    Range(Adr_Proc_Cellule).Offset(, 2) = "INV"
    Range(Adr_Proc_Cellule).Offset(, 3) = "0"
    Range(Adr_Proc_Cellule).Offset(, 4) = "0"
  
    Range(Adr_Proc_Cellule).Resize(1, 8).Interior.Color = vbYellow
End Sub

Merci, mais l'ai omis de préciser que je travaille dans un tableau nommer "tableau1"
Quand j'exécute la macro elle choisie la première cellule vide après tableau1
Je joins le fichier tableau1

 

[Nain porte quoi]

Ca je pouvais pas le deviner 🙂 et ça n'était pas le cas dans votre exemple.

Alors un détail mais important : quand vous utilisez des Tableaux Structurés (TS pour les intimes) il est parfaitement inutile de "prévoir" des lignes en plus. Le fait d'appuyer sur la touche Tab quand vous être sur la dernière cellule ajoute automatiquement une nouvelle ligne en recopiant les formules et la mise en forme. Idem si vous saisissez qqchose juste après la dernière ligne de votre TS

Pouvez vous corriger vos tableaux avant de lancer la macro ou voulez vous que la macro le fasse ?