Parcourir une plage de donées

Bonjour,

J'ai un classeur excel dans lequel l'opérateur doit entrer des données en colonne C. Je cherche une macro qui va une fois les données entrées en colonne C, D, ... VV, venir indiquer colonne par colonne en ligne 1, le nom générique de chaque colonne.

J'ai écris une macro, mais elle ne fonctionne pas correctement.

Sub étiquette()

Dim maplage As Range

Set maplage= Range("C2").End(xlToRight)

Set Start = Range("C2")

For Each cell In Rng

If Start <> "" Then

Start.Offset(-1, 0).Value = "Série N°_" & ActiveCell.Column - 2

End If

Set Start = Start.Offset(0, 1)

Next

End Sub

Un petit coup de main serait le bien venu.

Merci d'avance

bonjour,

on ne sait ni ce que tu veux faire, ni ce qui ne marche pas...

Joindre un fichier avec les explications.

eric

Hélas, le fichier est ennorme. C'est un calcul de pression sur des défauts de corrosion.

Néanmoins, jecopie la feuille et la joins. je veux que dés qu'une valeur est entrée en ligne 2 de la feuille et à partir de la colonne C, que la cellule située en ligne 1 de la colonne de la cellkule active prenne le nom de "Série N° " & Activecell.column-2.

Exemple, je rentre une valeur en H2, alors H1 prendra la valeur Série N° 6.

La macro fonctionne mais je n'arrive pas à me déplacer dans la ligne 2.

Bonjour

Effaces ta macro actuelle et places celle-ci

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Or Target.Cells(1, 1) = "" Then Exit Sub
  If Target.Column > 2 And Target.Row = 2 Then
    Cells(1, Target.Column) = "Série N° " & Target.Column - 2
  End If
End Sub

un extrait suffit.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Target.Row <> 2 Then Exit Sub
    If Target.Column > 2 Then Target.Offset(-1, 0) = "Série N°_" & Target.Column - 2
End Sub

La mise à jour se fait au fur et à mesure des saisies.

eric

Effectivement, il y avait plus simple quand on maitrise.

Merci Banzaï64 et eriic.

J'oubliais, Bonne et heureuse année à tous et toutes.