XL 2016 Remplissage cellule en fonction d'un nombre et courbe de tendance associée

Zemixx25300

XLDnaute Nouveau
Bonjour à tous,
Je suis bloqué depuis plusieurs jours sur le sujet et j'aimerais automatisé au mieux mon fichier excel (énormément de ligne).

En gros, je voudrais qu'en fonction d'un nombre renseigné, que cela remplisse en automatique le nombre de cellule
Ex : Je renseigne 3, je voudrais que mes 3 premières cellules soient remplies avec le texte "xx" et les 3 suivantes "yy"

En lien avec ce remplissage, je voudrais également que ma courbe de tendance Sparkline soit automatisée. Ex si j'ai renseigné 3 cellules, ma courbe prend ces 3 cellules, etc etc
J'ai joint un fichier qui je pense résume bien la situation

Merci d'avance pour ceux et celles qui vont pencher sur le sujet.
 

Pièces jointes

  • test.xlsx
    10.1 KB · Affichages: 14

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @Zemixx25300,

Voir le fichier joint. La macro se déclenche si sous modifiez la valeur d'une ou plusieurs cellules de la colonne A en ligne paire.
La macro doit être dans le module de la feuille concernée.
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xcell
On Error GoTo err001
If Not Intersect(Target, Columns(1)) Is Nothing Then
   Application.EnableEvents = False
   For Each xcell In Intersect(Target, Columns(1))
      If xcell.Row Mod 2 = 0 Then
         If IsNumeric(xcell) Then
            If xcell > 0 Then
               Range(Cells(xcell.Row, "c"), Cells(xcell.Row, Columns.Count)).ClearContents
               Cells(xcell.Row, "c").Resize(, xcell) = "DO"
               Cells(xcell.Row, "c").Offset(, xcell).Resize(, 3) = "SL"
      End If: End If: End If
    Next xcell
End If
err001:
    Application.EnableEvents = True
    If Err Then MsgBox "Erreur: " & Err.Description
End Sub
 

Pièces jointes

  • Zemixx25300- remplissage auto- v1.xlsm
    17 KB · Affichages: 5

Zemixx25300

XLDnaute Nouveau
Je viens de mettre le fichier.
Comme je l'ai dis la formule pour le remplissage est top et fonctionne parfaitement bien

Maintenant les sparkline , je les remplies manuellement.
Pour le DO à 3, je suis obligé de sélectionner les 3 valeurs, pour le DO à 6, je suis obligé de sélectionner les 6 valeurs, mais tout cela je le fais manuellement.
J'aimerais automatiser pour dire, si j'ai DO à 3, alors ma sparkline sélectionne que les 3 valeurs en DO, et si j'ai 6, les 6 ...
 

Pièces jointes

  • test.xlsx
    9.2 KB · Affichages: 3

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou