Code excell - débutante
Fermé
Sophiedgx
-
17 mars 2021 à 14:52
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 17 mars 2021 à 17:05
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 17 mars 2021 à 17:05
A voir également:
- Code excell - débutante
- Code asci - Guide
- Code puk bloqué - Guide
- Code telephone oublié - Guide
- Code blocks free - Télécharger - Langages
- Code windows 10 - Guide
3 réponses
Utilisateur anonyme
17 mars 2021 à 15:50
17 mars 2021 à 15:50
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
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
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à
