XL 2010 worksheet

[kaid]

Bonjour
j'ai mis ce code et ca fonctionne bien:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row > 1 Then
If Target = "" Then
Target.Offset(, 5) = "Egare"

Else
Target.Offset(, 5) = "Existe"
End If
End If
End Sub

j'ai rajouter ceci mais ca ne marche pas!!!!!!!!

If Target.Column = 10 And Target.Row > 1 Then
If Target = "" Then
Target.Offset(, 4) = "Dossier sorti"

Else
Target.Offset(, 4) = "Dossier entré"
End If
End If

 

[LaCeline]

kaid, le forum,

et comme ceci ?

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 And Target.Row > 1 Then
    If Target = "" Then
        Target.Offset(, 5) = "Egare"
    Else
        Target.Offset(, 5) = "Existe"
    End If
End If

If Target.Column = 10 And Target.Row > 1 Then
    If Target = "" Then
        Target.Offset(, 4) = "Dossier sorti"
    Else
        Target.Offset(, 4) = "Dossier entré"
    End If
End If
End Sub

LaCéline

 

[kaid]

Merci beaucoups

 

[kaid]

quand je met une date dans la colonne (10) il m'affiche dossier sorti mais quand je met la date dans la colonne (11) il m'affiche pas date sorti

 

[kaid]

j'ai 3 colonne J,K,N
quand je saisi une date dans la colonne J
il m'affiche "date sorti" dans la colonne N
quand je saisi une date dans la colonne K
il m'affiche "date entre" dans la colonne N
sinon il m'affiche rien.

 

[kaid]

j'ai trouvé:
If Target.Column = 10 And Target.Row > 1 Then
If Target = 1 Then
Target.Offset(, 4) = "Dossier entre"
Else
Target.Offset(, 4) = ""
End If
End If

If Target.Column = 11 And Target.Row > 1 Then
If Target = 1 Then
Target.Offset(, 3) = "Dossier sorti"
Else
Target.Offset(, 3) = ""
End If
End If

mais a la place de If Target = 1 Then If Target = date Then

 

[kaid]

c bon j'ai réussi je vous remercis

 

[cathodique]

Bonjour Kaid, le forum,

Tu as sollicité de l'aide et d'une manière ou une autre tu as solutionné ton problème.

C'est juste pour te rappeler que c'est un forum d’entraide, ce qui signifie ici on partage.

Il est fort possible (non certain) que d'autres personnes ont un problème similaire au tien. Ils seraient ravis de trouver facilement une solution.

Merci de partager ta trouvaille.

 

[kaid]

bonjour;
je croyais avoir réussi mais ca marche pas !!!

 

[cathodique]

Avec un petit fichier ça serait mieux. Il te manque peut-être ceci en début de code à adapter à tes colonnes

If Not Intersect(Target, Union(Range("E9:F1000"), Range("I9:J1000"))) Is Nothing Then

 

[cathodique]

un essai à tester

Private Sub Worksheet_Change(ByVal target As Range)

    If Not Intersect(target, Range("J2:K1000")) Is Nothing Then

        If target.Column = 10 And target.Row > 1 Then
            If target = "" Then
                target.Offset(, 4) = "Egare"
            Else
                target.Offset(, 4) = "Archivé"
            End If
        End If
        '''''''''''''''Pour le haut c bon ca marche''''''''''''''''''''''''''''''''''''
        If target.Column = 11 And target.Row > 1 Then
            If target = "" Then
                target.Offset(, 3) = "Dossier sorti"
            Else
                target.Offset(, 3) = "Dossier Entré"
            End If
        End If
    End If
    'j'aimerai travailler avec la date '
End Sub

Ton fichier en retour

 

[kaid]

Merci

 

[kaid]

bonsoir;
j'ai un textbox avec une recherche multicolonne.
j'ai une listbox et le résultat s'affiche dans la listbox.
mais quand je clik sur la ligne de la listbox la selection ne sefait pas sur la feuille elle est decalée donc je peut pas modifier mes données dans ma feuille