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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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

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

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

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour