Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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,

Ca ne me semble pas très difficile en revanche pas sûr que les valeurs xx et yy soient acceptées dans le graphique Sparkline 😉 Du coup à quoi correspondent ces valeurs ?

Bonne continuation
 
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

Re,

Voilà une confirmation de ce que j'avais observé. Ne reste plus que la réponse à ma question. Faudra-t-il sortir les forceps ?
Remarquez : je ne suis pas pressé, ce n'est pas moi le demandeur...
 
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

Merci beaucoup Victor, c'est parfait. Par contre je ne trouve pas comment faire cette définition dynamique. J'ai regardé les données sélectionnées pour le graphique et je vois "_do", par contre je ne trouve pas comment tu as fait.
 
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…