VBA lire une colone et en tiré les info

salut,

Ca va peut-être t'aider :

Option Explicit

Sub MaProcedure()
    Dim rngCell As Range
    
    For Each rngCell In Columns(1).Cells
        Application.StatusBar = rngCell.Row
        If Not IsEmpty(rngCell) Then
            Select Case rngCell.Value
                Case 0
                    rngCell.Offset(0, 1).Value = "Arrêt"
                Case 1
                    rngCell.Offset(0, 1).Value = "Marche"
                Case Else
                    rngCell.Offset(0, 1).Value = "Autre chose..."
            End Select
        End If
    Next
    
    Application.StatusBar = ""
End Sub

merci Kobaya aujourd'hui je n'ai pas eu le temps de tester ce que tu ecrit tinkiete je te tiendrait au courant si ca fonctionne
merci encore
@+

bon jours a tous
finalement j'ai enregitrer une nouvelle macro
suivant les diferente valeur de bon tableau cela me retourner l'etat de l'application
dans ma case g mis ca :

=SI(E3=1;"marche'1'";SI(ET(C3=1;E3=0);"Arret'1'";SI(ET(C3=2;E3=0);"pas defaut'1'";SI(ET(C3=5;E3=0);"Arret'2'";SI(ET(C3=6;E3=0);"pas defaut'2'";SI(E3=2;"Defaut'1'";SI(E3=5;"Marche'2'";SI(E3=6;"Defaut'2'";"pb data"))))))))

cela fonctionne ensuite je voulais le generaliser a laide d'une macro car je ne connais po le nombre de valeur de bon tableau
g taper ca en VBA

Sub Traiter_resultat()
'on test la colone pour connaitre l'état du métier a tisser

Range("F3").Select

ActiveCell.FormulaR1C1 = _
"=RC[-1]=1 ""marche'1'"" AND(RC[-3]=1,RC[-1]=0)""Arret'1'"" AND(RC[-3]=2,RC[-1]=0)""pas defaut'1'"" AND(RC[-3]=5,RC[-1]=0)?""Arret'2'"" AND(RC[-3]=6,RC[-1]=0)""pas defaut'2'"" IF(RC[-1]=2,""Defaut'1'"",IF(RC[-1]=5,""Marche'2'"",IF(RC[-1]=6,""Defaut'2'"",""pb data"")))"
Range("F3").Select
Selection.AutoFill Destination:=Range("f3", Range("f3").End(xlDown)).Select, Type:=xlFillDefault
Range("f3", Range("f3").End(xlDown)).Select
End Sub

hé la ca ne marche po alors que c 'est excel ki a generé le test
g un message d'erreur '1004'
erreur définit par l'application ou par l'objet

voila je ne voi po ou ai mon erreur si kelkun a une idée merci et @+

salut
ba je te remercie
ca fonctionne
bien
@+