Selection a partir d'une variable cellule
Résolu/Fermé
Sormick
Messages postés
145
Date d'inscription
dimanche 10 novembre 2013
Statut
Membre
Dernière intervention
26 janvier 2023
-
Modifié par pijaku le 29/05/2015 à 14:27
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 26 janvier 2023 - 29 mai 2015 à 16:00
Sormick Messages postés 145 Date d'inscription dimanche 10 novembre 2013 Statut Membre Dernière intervention 26 janvier 2023 - 29 mai 2015 à 16:00
A voir également:
- Selection a partir d'une variable cellule
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
- Comment trouver un numéro à partir du nom et prénom ✓ - Forum Mobile
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Trouver un numero de portable a partir d'un nom svp - Forum Internet / Réseaux sociaux
2 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
29 mai 2015 à 15:19
29 mai 2015 à 15:19
Le fait que tu ne répondes pas sur tes anciens sujets (cf ICI) n'incite pas les bénévoles à t'aider...
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
29 mai 2015 à 15:56
29 mai 2015 à 15:56
Pour ton souci présent, il convient de ne pas utiliser cell, il s'agit là d'un mot réservé par VBA. Remplace donc par Cel, par exemple.
Workbooks("bv chilly-mazarin.xls").Activate
Dim ladate As Date
Dim plusun As Date
ladate = Format(Now, ("dd/mm/yyyy"))
plusun = DateAdd("m", -1, ladate)
Dim rng As Range, Cel As Range
Set rng = Workbooks("feuil1.xls").Sheets("traductions").Range("k2:k65000")
For Each Cel In rng
If Cel.Value <> "" Then
Dim valdate As Date
valdate = Cel.Value
If valdate < plusun Then
Range(Cel.Address, Cel.Offset(0, -1).Address).Delete
End If
End If
Next Cel
Workbooks("feuil1").Activate
ActiveWorkbook.Save
Workbooks("TAGUEUR BV.xls").Activate
Sormick
Messages postés
145
Date d'inscription
dimanche 10 novembre 2013
Statut
Membre
Dernière intervention
26 janvier 2023
29 mai 2015 à 16:00
29 mai 2015 à 16:00
Merci beaucoup!!!!
tgénial!!
très bonne journée à toute l'équipe de commentcamarche!!! :)
tgénial!!
très bonne journée à toute l'équipe de commentcamarche!!! :)
29 mai 2015 à 15:22