Rechercher : dans
Par :

Remplissage cellule sur excel

Dernière réponse le 24 mar 2009 à 18:06:55 diapizé, le 24 mar 2009 à 17:22:50 
 Signaler ce message aux modérateurs

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

Configuration: Windows Vista
Internet Explorer 7.0

Meilleures réponses pour « remplissage cellule sur excel » dans :
[Excel] Colorer des cellules sur conditions VoirIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
[Excel] Restreindre l'accès aux cellules VoirEncore une fonction peu connue : Expérimentez : Données / Validation Vous pouvez alors restreindre ou interdire l'accès aux "cellules stratégiques" de votre choix, avec message d'alerte. Vous pouvez faire afficher automatiquement des messages...

1

 michel_m, le 24 mar 2009 à 18:06:55

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

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
Cordialement, Michel

Répondre à michel_m