remplacer par une autre valeur VBA Résolu/Fermé

Question

Bonjour à tous, 
je viens vers vous car je suis bloqué sur le problème suivant, je parcours une ligne (ligne3) a la recherche de ma date (qui est rentrer par un utilisateur avec un userform) cette date correspond au dernier jours travaillé d'une personne, en suite il sera en retraite. 
Ma question est : comment faire ou dire que tout ce qui est après cette date soit remplacé par retraite ? 

je vous mets le debut de mon code 
Sub supprimer_agent(CUID As String)    Set cn = CreateObject("ADODB.Connection")    Dim rs As New ADODB.Recordset    Dim shp As Shape        With cn        .Provider = "Microsoft.ACE.OLEDB.12.0"        .ConnectionString = "P:\Vie des sites\Saint Omer\Apprenti\Planning nouveau\planning.accdb"        .Open    End With   anneeencours = Year(Date)   Sheets("" & anneeencours & "").Select  '  Range("A1").AutoFilter Field:=1, Criteria1:="=*" & suppression_agent.TextBox2 & "*"    COL = 7While suppression_agent.TextBox1 <> Columns(COL)    COL = COL + 1    Wendend  sub
 ATTENTION ne pas s'occuêr de la connexion à la base 

je vous remercie de votre aide par avance  !! 


Configuration: Windows 7 / Firefox 38.0

f894009 · Answer

Bonjour,

un exemple:

Sub test()
    Dim DDate
    
    With Worksheets("feuil1")
        dercol = .Cells(3, .Cells.Columns.Count).End(xlToLeft).Column
        DDate = "5 / 1 / 2016"      'date dernier jour
        Set DR = .Range(.Cells(3, 2), .Cells(3, dercol)).Find(CDate(DDate), LookIn:=xlValues)
        If DR Is Nothing Then
            MsgBox "N'existe pas"
            Exit Sub
        End If
        'Lettre colonne en numero pour colonne de depart a date + 1
        NumCol = Range(Split(DR.Address, "$")(1) & 1).Column + 1
        .Range(.Cells(3, NumCol), .Cells(3, dercol)) = "retraite"
    End With
End Sub

Remplacer par une autre valeur VBA

1 réponse

Discussions similaires