Discussion :

[luko6]

bonjour à tous
j'ai un problème sur un code et je n'arrive pas à le resoudre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Cellule In Range("c5:c9000")
        If Cellule <> Temps partiel Then Range('C & Range('C65536').End(xlUp).Row + 1) = Temps partiels
    Next Cellule

Pouvez vous me donner un petit coup de main?
merci d'avance

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        If Cellule <> TempsPartiel Then Range("C" & Range("C65536").End(xlUp).Row + 1) = TempsPartiel

sans espace dans le nom des variables
les ranges sont entre " "

tu es en Excel 2007
plutôt ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("C" & Cells(Columns(3).Cells.Count, 3).End(xlUp).Row + 1)

[HurGeek]

Bonjour,

Que veux-tu faire exactement?
Tu souhaites parcourir les cellules entre c5 et c9000, et si une de ces cellules est différentes de TempsPartiel alors la première cellule vide (en partant du fin de la colonne) se voit attribuer la valeur tempspartiels??

Ton code devrait fonctionner comme cela en tout cas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Cellule In Range("c5:c9000")
        If Cellule <> Temps_partiel Then Range("C" & Range("C65536").End(xlUp).Row + 1) = Temps_partiels
    Next Cellule

[luko6]

en fait ce que je souhaite faire si la valeur "temps partiel" n'existe pas dans la colonne c à et à partir de C5 alors je veux ecrire temps partiel sur la premiere cellule vide
(sachant que j'ai plusieurs valeurs differente dans la colonne c)
merci

[mercatog]

Une proposition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim plage As Range, c As Range
Dim LastLig As Long
 
LastLig = Cells(Columns(3).Cells.Count, 3).End(xlUp).Row
Set plage = Range("C5:C" & LastLig)
 
Set c = plage.Find(TempsPartiel, LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then Range("C" & LastLig + 1) = TempsPartiel
Set c = Nothing
Set plage = Nothing

une 2ème

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim plage As Range
Dim LastLig As Long
 
LastLig = Cells(Columns(3).Cells.Count, 3).End(xlUp).Row
Set plage = Range("C5:C" & LastLig)
 
If Application.WorksheetFunction.CountIf(plage, TempsPartiel) = 0 Then Range("C" & LastLig + 1) = TempsPartiel
 
Set plage = Nothing

[luko6]

merci de votre aide

Cependant Mercatog aucune des deux propositions ne fonctionne

[mercatog]

Je pense que si tu les adapte proprement à ton contexte, ça devra fonctionner
si tu mettais ton code pour voir?