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 ?

 

[Nain porte quoi]

Bon, voici le nouveau code qui tien compte du TS et supprime les lignes inutiles. C'est la 1ère colonne du tableau qui dit si la ligne est vide ou pas, j'espère que vous avez des dates dans toutes les lignes

Sub Remplissage_auto()
    
    Dim Tab_Source As ListObject
    Set Tab_Source = ActiveSheet.ListObjects(1)
    
    On Error Resume Next ' Au cas où aucune cellule de la première colonne n'est vide
    Tab_Source.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
    
    Dim Nouvelle_Ligne As ListRow
    Set Nouvelle_Ligne = Tab_Source.ListRows.Add
    With Nouvelle_Ligne
        .Range(1) = #12/31/2025#
        .Range(3) = "INV"
        .Range(4) = 0
        .Range(5) = 0
        .Range(6).FormulaR1C1 = "=+R[-1]C+[@Entrée]-[@Sortie]"
        .Range.Interior.Color = vbYellow
    End With
    
End Sub