XL 2010 date avec condition

[christine854]

Bonjour à tous
J'ai un classeur dans lequel je souhaiterai inscrire automatiquement des dates en fonction de la présence du texte "test" dans une colonne pour chaque numéro correspondant.

Dans la feuille 2 en colonne, T et U:
Si présence d'une date en T et U = suppression des dates existante en T et U pour le numéro concerné.

Si présence du texte "test" en colonne C et si pas de date en colonne T pour le numéro correspondant = date (format dd/mm/yyyy) en colonne T pour le numéro correspondant et copier coller de cette date en feuille 1 colonne AW pour le numéro correspondant.

Si présence du texte "test" en colonne C et si présence de date en colonne T pour le numéro correspondant = copier coller de cette date en feuille 1 colonne AW pour le numéro correspondant.

Si pas de présence du texte "test" en colonne C et si pas de présence de date en colonne T pour le numéro correspondant = aucune action.

Si pas de présence du texte "test" en colonne C et si présence de date en colonne T pour le numéro correspondant = date (format dd/mm/yyyy) en colonne U pour le numéro correspondant.

Dates = format dd/mm/yyyy mois en cours -1 figer le jour au 01.

 

[christine854]

je sais pas si c'est suffisamment compréhensible n’hésitez pas si besoin de précision

 

[christine854]

personnes pour un coup de pouce ?

 

[christine854]

vraiment personne ?

 

[job75]

Bonjour christine854,

Quand on n'a pas de réponse, il suffit de réfléchir un peu.

Votre fichier ne tient pas la route, il n'a rien à voir avec le problème posé !!!

A+

 

[christine854]

?? je ne comprend pas en quoi le fichier n'a rien avoir avec la demande

 

[christine854]

toutes les info sont en feuille 2 et il y a un copier coller si la condition est rempli en feuille 1 pour les numéro correspondant

 

[christine854]

bon j'ai détaillé la demande dans le classeur

 

[christine854]

si besoin de précision n’hésitez pas

 

[christine854]

Bon, un premier test laborieux, je ne sais pas trop si je suis sur la bonne voie

Sub test()

tabloValid = Feuil2.Range("A2:C" & Feuil1.Cells(Rows.Count, 1).End(xlUp).Row)
Dim miniTablo()
Application.ScreenUpdating = False
For i = 1 To UBound(tabloValid)
    With Feuil2
       
       If .Cells(ligneID, 20) = Date _
       And .Cells(ligneID, 21) = Date Then
        .Cells(ligneID, 20) = ""
        .Cells(ligneID, 21) = ""
       Else
           
           ligneID = Application.Match(tabloValid(i, 1), .[A:A], 0)
           
           
            If tabloValid(i, 3) = "test" _
            And .Cells(ligneID, 20) = "" Then
            .Cells(ligneID, 20) = DateSerial(Year(Date), Month(Date) - 1, 1)
            End If
           
            If tabloValid(i, 3) = "test" _
            And .Cells(ligneID, 20) = Date Then
           
            If tabloValid(i, 3) = "" _
            And .Cells(ligneID, 20) = "" Then
           
             If tabloValid(i, 3) = "" _
            And .Cells(ligneID, 20) = Date Then
            .Cells(ligneID, 21) = DateSerial(Year(Date), Month(Date) - 1, 1)
                End If
               
               
                ReDim miniTablo(1 To 8)
                For x = 1 To 8
                    miniTablo(x) = tabloValid(i, x)
                Next x
                If tabloValid(i, 3) = "test" Then
                   
                   Feuil1.Cells(Rows.Count, 49).End(xlUp).Offset(1, 0).Resize(1, 8) = miniTablo
                End If
           
          
              
        End If
    End With
Next i
Application.ScreenUpdating = True
End Sub