XL 2010 worksheet

kaid

XLDnaute Occasionnel
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

XLDnaute Nouveau
kaid, le forum,

et comme ceci ?
Code:
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

XLDnaute Occasionnel
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

XLDnaute Occasionnel
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
 

cathodique

XLDnaute Barbatruc
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.;)
 

cathodique

XLDnaute Barbatruc
un essai à tester
VB:
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
 

Pièces jointes

  • Kaid target.xlsm
    19.1 KB · Affichages: 25

kaid

XLDnaute Occasionnel
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
 

Pièces jointes

  • Kaid.xlsm
    1.3 MB · Affichages: 40

Discussions similaires

Statistiques des forums

Discussions
312 929
Messages
2 093 716
Membres
105 794
dernier inscrit
mallet