Remplacer par une autre valeur VBA
Résolu/Fermé
bithack
Messages postés
129
Date d'inscription
mercredi 29 octobre 2014
Statut
Membre
Dernière intervention
16 mars 2016
-
15 mars 2016 à 10:01
bithack Messages postés 129 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 16 mars 2016 - 15 mars 2016 à 11:16
bithack Messages postés 129 Date d'inscription mercredi 29 octobre 2014 Statut Membre Dernière intervention 16 mars 2016 - 15 mars 2016 à 11:16
A voir également:
- Remplacer par une autre valeur VBA
- Remplacer disque dur par ssd - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba rechercher une valeur dans une colonne - Astuces et Solutions
- [Vba] recherche d'une valeur EXACTE ✓ - Forum VB / VBA
1 réponse
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
15 mars 2016 à 11:00
15 mars 2016 à 11:00
Bonjour,
un exemple:
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
15 mars 2016 à 11:16
merci de votre aide je vais l'adapter au mien !!
merci