Remplissage cellule sur excel
diapizé
Messages postés
1
Statut
Membre
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, je fais un travail sur les découpage en zone de planchers en genie civil, et j'essaie de faire une formule sur excel dans laquelle sur une certaine cellule je rentre un nombre et ça me crée dans la colonne à coté le nombre de zone. par exemple sur B2 je rentre 7 et de C2 à C8 ça me crée le nombre de zone ,sur C2 c'est écrit zone1, sur C3 zone 2 sur C4 zone3 .....sur C8 zone7.
et si possible avec des couleurs de remplissage pour chaque zone.
merci
et si possible avec des couleurs de remplissage pour chaque zone.
merci
A voir également:
- Remplissage cellule sur excel
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
1 réponse
bonjour
a copier dans le module feuille de VBA (et non dans un module normal)
raccourci: clic droit sur le nom de l'onglet-visualiser le code - et coller
la "certaine cellule" est A1 dans cette proposition
XL<2007
a copier dans le module feuille de VBA (et non dans un module normal)
raccourci: clic droit sur le nom de l'onglet-visualiser le code - et coller
la "certaine cellule" est A1 dans cette proposition
XL<2007
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cptr As Long
If Intersect(Target, Range("A1")) Is Nothing Or Target.Count > 1 _
Or Not IsNumeric(Target) Then: Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("C2:C65536").Clear
For cptr = 1 To Target
With Cells(cptr + 1, 3)
.Value = "zone " & cptr
If cptr < 56 Then
.Interior.ColorIndex = cptr + 1
Else
.Interior.ColorIndex = cptr - 55
End If
End With
Next
Application.EnableEvents = True
End Sub
