VBA - trouver la version la plus récente d'un projet
Résolu/FerméKeyserSoze84 Messages postés 3 Date d'inscription samedi 5 novembre 2022 Statut Membre Dernière intervention 5 novembre 2022 - 5 nov. 2022 à 14:38
- VBA - trouver la version la plus récente d'un projet
- Vue satellite recente de ma maison - Guide
- Trouver adresse mac - Guide
- Splitcam ancienne version - Télécharger - Messagerie
- Trouver un lieu avec coordonnées gps - Guide
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. - Forum Graphisme
2 réponses
Modifié le 5 nov. 2022 à 12:02
J'avais tenté quelque chose :
Sur Feuille Excel à partir de A1 :
438/458
438/458
448/567
448/567#2
448/567#30
448/567#4
448/567#15
448/567#6
448/567#7
448/567#8
448/567#9
448/567#10
448/567#11
448/567#12
Je tente de récupérer la modification la plus récente (448/567#30).
La première procédure affiche bien les valeurs après "#".
Par contre, la deuxième ne me donne pas la valeur max après "#".
J'ai raté quelque chose ?
Sub Test1()
'Fonctionne
Ma_Valeur = "448/567"
For i = 1 To 14
If Left(Range("A" & i), Len(Ma_Valeur)) = Ma_Valeur Then
If InStr(1, Range("A" & i), "#") > 0 Then
MsgBox Right(Range("A" & i), Len(Range("A" & i)) - InStr(1, Range("A" & i), "#"))
End If
End If
Next
End Sub
Sub Test2()
'Ne fonctionne pas !!!
Ma_Valeur = "448/567"
Numero = 0
For i = 1 To 14
If Left(Range("A" & i), Len(Ma_Valeur)) = Ma_Valeur Then
If InStr(1, Range("A" & i), "#") > 0 Then
If Right(Range("A" & i), Len(Range("A" & i)) - InStr(1, Range("A" & i), "#")) > Numero Then
Numero = Right(Range("A" & i), Len(Range("A" & i)) - InStr(1, Range("A" & i), "#"))
MsgBox Numero
End If
End If
End If
Next
End Sub
Modifié le 5 nov. 2022 à 14:44
Je viens de trouver une solution toute simple à mon problème !
Je n'ai finalement pas mis de numéro #1, #2, #3, etc...
Mes dossiers comportent une date d'enregistrement. Il suffisait donc de les classer du plus récent au plus ancien.
Ensuite, supprimer les doublons en filtrant sur la case des dossiers permet de ne garder que les dernières versions.
Le truc à ne pas oublier est qu'Excel supprime les doublons de haut en bas. Il faut donc bien filtrer dans le bon ordre.
Merci quand même !
