Microsoft 365 Remplissage auto

ROI1482 à dit:

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

Cliquez pour agrandir...

Dand87 à dit:

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.

Cliquez pour agrandir...

ROI1482 à dit:

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

Cliquez pour agrandir...

Nain porte quoi à dit:

Hello,

à adapter

VB:

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

Cliquez pour agrandir...

Nain porte quoi à dit:

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

VB:

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

Cliquez pour agrandir...

Nain porte quoi à dit:

Si vous donnez les informations au compte goute ça complique un peu vous ne pensez pas ?
Comme en plus vous ne dites pas quelle est la finalité, faut deviner.

Je vais attendre les prochaines demandes avant de vous proposez qqchose, parce que je sans bien que vous allez en rajoutez.

Bonne journée

Cliquez pour agrandir...

Nain porte quoi à dit:

OK.
Problème, vous utilisez les TS mais sans logique véritable. Il y a des lignes vides, des données saisie à la place des formules etc etc.
Bref, impossible de faire qqchose d'automatique.
Je vous propose donc une macro qui fait ce que vous demandez, MAIS, c'est à vous de choisir la cellule.
Si vous l'enregistrez dans le classeur PERSONAL.XLSB et que vous lui affectez le raccourci clavier que vous voulez, elle sera dispo dans tout vos classeurs

voici la macro (simpliste)

VB:

Sub Macro1()
' Touche de raccourci du clavier: Ctrl+Shift+A
 
    With ActiveCell
        .Value = #12/31/2025#
        .Offset(, 2).Value = "INV"
        .Offset(, 3).Value = 0
        .Offset(, 4).Value = 0
        .Resize(1, 8).Interior.Color = vbYellow
    End With

End Sub

Voici les explications pour la mettre dans le classeur PERSONAL.xlsb

https://support.microsoft.com/fr-fr...r-unique-66c97ab3-11c2-44db-b021-ae005a9bc790

Un peu de lecture pour lui affecter un raccourci clavier ou personnaliser la barre d'outils

Exécuter une macro dans Excel - Support Microsoft

Dans Excel, vous exécutez une macro manuellement ou automatiquement. Une macro est une action ou un ensemble d’actions qui permettent d’automatiser des tâches. Cette rubrique vous montre plusieurs façons d’exécuter des macros manuellement ou automatiquement.

support.microsoft.com

Et enfin le fichier d'exemple, mais la macro doit être dans le PERSONAL.XLSB pour être dispo dans tous les classeurs

Cliquez pour agrandir...