Code excell - débutante
Fermé
Sophiedgx
-
17 mars 2021 à 14:52
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 17 mars 2021 à 17:05
cs_Le Pivert Messages postés 7883 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 18 mars 2023 - 17 mars 2021 à 17:05
A voir également:
- Code excell - débutante
- Code asci - Guide
- Code 80072efe ✓ - Forum Windows
- Freewifi secure code ✓ - Forum Réseau
- Netflix code - Guide
- Code puk maroc telecom ✓ - Forum Mobile
3 réponses
Un toute logique, on peut présumer que les "21" de la colonne "C" devront êtres alignés avec les "21" de la colonne "A" (ce qui n'est pas ton exemple), sinon, ça n'aurait aucun sens; et ce qui revient à dupliquer la colonne "B".
Il faudrait clarifier ta demande.
Il faudrait clarifier ta demande.
Sophiedgx
Messages postés
1
Date d'inscription
mercredi 17 mars 2021
Statut
Membre
Dernière intervention
17 mars 2021
17 mars 2021 à 16:16
17 mars 2021 à 16:16
Bonjour, je vous mets une image pour comprendre..
Si 5 personnes ont 21 ans, je voudrais que le nombre 21 se retrouve dans 5 cellules à la suite. Ensuite, si 11 personnes ont 22 ans, je voudrais qu'à la suite des 21 se trouve le nombre 22, 11x d'affillée dans 11 cellules différentes, etc...

Si 5 personnes ont 21 ans, je voudrais que le nombre 21 se retrouve dans 5 cellules à la suite. Ensuite, si 11 personnes ont 22 ans, je voudrais qu'à la suite des 21 se trouve le nombre 22, 11x d'affillée dans 11 cellules différentes, etc...

cs_Le Pivert
Messages postés
7883
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
18 mars 2023
724
17 mars 2021 à 17:05
17 mars 2021 à 17:05
Bonjour,
Faire Alt F11 sur la feuille concernée pour accéder à l'éditeur.
La macro se déclenchera au double clic dans la colonne B
mettre ce code:
Voilà
Faire Alt F11 sur la feuille concernée pour accéder à l'éditeur.
La macro se déclenchera au double clic dans la colonne B
mettre ce code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
Dim i As Integer
Dim DerniereLigneUtilisee As Long
DerniereLigneUtilisee = Range("C" & Rows.Count).End(xlUp).Row
If Target.Value = 0 Then Exit Sub
For i = 0 To Target.Value
Range("C" & DerniereLigneUtilisee + i) = Range("A" & Target.Row)
Next i
End If
End Sub
Voilà