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

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

xUpsilon

XLDnaute Accro
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
 

xUpsilon

XLDnaute Accro
Re,

Voir ci joint.

Bonne continuation

Ps : Je l'ai fait uniquement pour les lignes 2 4 et 6, si tu en veux d'autres, ajuste ma boucle à ton besoin.
 

Pièces jointes

  • test (7).xlsm
    17.9 KB · Affichages: 11

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

Victor21

XLDnaute Barbatruc
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...
 

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

Zemixx25300

XLDnaute Nouveau
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.
 

Discussions similaires

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