XL 2016 Excel vba

[Iibnou1]

Bonjour je commence fort avec des questions. J’ai un fichier avec 2 feuilles, j’aimerais savoir comment couper une ligne de la feuille “RP” si Elle verifie la condition suivante . Dans ma colonne B de.la feuille "RP" se trouve des dates j'aimerai que si une Date de cette colonne est inférieur à la date d'aujourdhui couper la ligne entire et le coller sur la première ligne vide de la feuille “Archive”. Je ne suis pas très ferrée en VBA, mais apres plusieurs lecture dans plusieurs forum j'arrive pas à trouver une solution
voici le code que j'ai essayer de bicolor

Sub Archivage()
n=3
nblig=35
For i=n To nblig
Sheets("RP"). Select
If Cells(i, 2). Value < Date Then
Cells(i,2). EntireRow.Cut
Sheets(Archive").Select
ActiveSheet.Paste
Sheets("RP"). Select
nblig=nblig -1
n=n+1
End If
Next i

End Sub
Private Sub CommanButton1 ()
Call Archivage
End Sub

Elle fonction au premier couper coller
apres prochaine mise à jour s`incrimente pas sur l`ancien Archive

et j`aimerai aussi que les lignes couper soit supprimmer de la feuille"RP"

Merci svp quelqu'un pour m'aider je suis coincé

 

[Phil69970]

Bonjour @Iibnou1 et bienvenu sur XLD

Avec un fichier représentatif cela irait mieux

@Phil69970

 

[Iibnou1]

Bonjour @Iibnou1 et bienvenu sur XLD

Avec un fichier représentatif cela irait mieux

@Phil69970

Bonjour @Phil69970 en bas je joints mon fichier excel .desolé

 

[Phil69970]

Bonjour @Iibnou1

Avec un peu de retard mais j'ai eu un WE très chargé ...

Je te propose ce fichier....

J'ai modifié plein de choses ....

1) Les dates colonnes A et B n'étaient pas des dates valides et correctes
==> mélange de date, de texte et de date US ==> Corrigée j'ai laissé la fonction qui corrige les dates

2) J'ai supprimé les lignes vides qui trainait un peu partout

3) J'ai fait une MFC qui gère les bordures automatiquement

4) J'ai ajouté un autre bouton qui permet l'archivage directement de la feuille sans passer par la feuille accueil (Le bouton peut être supprimé si tu veux)

5) j'ai supprimé tous les noms qui trainaient dans le gestionnaire de noms

6) J'ai ajouté un message de confirmation de l'archivage

Merci de ton retour

@Phil69970

 

[Iibnou1]

Bonjour @Iibnou1

Avec un peu de retard mais j'ai eu un WE très chargé ...

Je te propose ce fichier....

J'ai modifié plein de choses ....

1) Les dates colonnes A et B n'étaient pas des dates valides et correctes
==> mélange de date, de texte et de date US ==> Corrigée j'ai laissé la fonction qui corrige les dates

2) J'ai supprimé les lignes vides qui trainait un peu partout

3) J'ai fait une MFC qui gère les bordures automatiquement

4) J'ai ajouté un autre bouton qui permet l'archivage directement de la feuille sans passer par la feuille accueil (Le bouton peut être supprimé si tu veux)

5) j'ai supprimé tous les noms qui trainaient dans le gestionnaire de noms

6) J'ai ajouté un message de confirmation de l'archivage

Merci de ton retour

@Phil69970

Merci Beaucoup Phil69970

Elle fonction a 100%
j`ai eu une solution en bricolant mais la tienne est meilleur.

juste pour savoir pourquoi dans le code convdate ta mis le format "m/d/yyyy"

Merci j'ai une autre question mais j'adapte d'abord ta solution a mon fichier deja avancé.

 

[Iibnou1]

Bonsoir
Est ce que si j'entre les données de reservation à l'aide d'un usf çela va impacter le format de date dans mon Tableau
Cordialement

 

[Phil69970]

@Iibnou1

juste pour savoir pourquoi dans le code convdate ta mis le format "m/d/yyyy"

C'est juste une sécurité pour être sur que les dates des 2 colonnes seront toujours au bon format sauf si tu modifies le format des cellules évidemment

@Phil69970

 

[Iibnou1]

@Iibnou1


C'est juste une sécurité pour être sur que les dates des 2 colonnes seront toujours au bon format sauf si tu modifies le format des cellules évidemment

Regarde la pièce jointe 1147859

@Phil69970

OK merci

Par rapport à ma question de usf t'en pense quoi ?

 

[Deadpool_CC]

Par rapport à ma question de usf t'en pense quoi ?

Bonjour ...
si tu utilises un userform, tu va avoir un texte (qui ressemble à une date) => donc pense à le convertir en date pour l'enregistrer dans ta cellule de destination !
(sauf si tu utilise un composant de type calendrier qui lui devrait te renvoyer une date ... enfin de souvenir ).
A+

 

[Iibnou1]

Bonjour ...
si tu utilises un userform, tu va avoir un texte (qui ressemble à une date) => donc pense à le convertir en date pour l'enregistrer dans ta cellule de destination !
(sauf si tu utilise un composant de type calendrier qui lui devrait te renvoyer une date ... enfin de souvenir ).
A+

Bonsoir , Est ce que en mettant ce bout de code dans le bouton valider ça pourra convertir le format de date
Ligne=Sheets("RP"). Range("B1000") End(xlUp). Row+1
Sheets("RP").Cells(Ligne, 1)= CDate(Me.TextBox1)
Sheets("RP").Cells(Ligne, 2)= CDate(Me.TextBox2)

Sachant que textbox 1 et 2 porter mes dates

merci

 

[Deadpool_CC]

Bonsoir,
Si dans tes textbox, le texte est bien une date genre 21/08/2022 et pas un truc du genre "vendredi dernier", cela devrait fonctionner

 

[Iibnou1]

Merci beaucoup

je.rencontre pas de Souci

 

[Phil69970]

@Iibnou1
Bonjour @Deadpool_CC

Perso je ferais quelque chose comme cela
Txt_Date==> le nom de ta textbox qui contient la date

Sub CommandButton1_Click()
With Txt_Date
    If IsDate(.Value) Then
        If Format(.Value, "dd/mm/yyyy") <> .Value Then
            [A1] = DateSerial(Year(.Value), Month(.Value), Day(.Value))
        End If
    Else
        MsgBox "La date n'est pas une date valide."
    End If
End With

Et j'ai bien ma date au même format que dans ma textbox

*Je suis étonné que tu mettes ton propre message comme résolu car la réponse à la question post #1 que tu as posé ne correspond pas à la réponse que tu as donné au post #10

Et il me semble que tu as écrit :

Merci Beaucoup Phil69970

Elle fonction a 100%
j`ai eu une solution en bricolant mais la tienne est meilleur.

Bonne lecture

@Phil69970

 

[Iibnou1]

@Iibnou1
Bonjour @Deadpool_CC

Perso je ferais quelque chose comme cela
Txt_Date==> le nom de ta textbox qui contient la date

Sub CommandButton1_Click()
With Txt_Date
    If IsDate(.Value) Then
        If Format(.Value, "dd/mm/yyyy") <> .Value Then
            [A1] = DateSerial(Year(.Value), Month(.Value), Day(.Value))
        End If
    Else
        MsgBox "La date n'est pas une date valide."
    End If
End With

Et j'ai bien ma date au même format que dans ma textbox

*Je suis étonné que tu mettes ton propre message comme résolu car la réponse à la question post #1 que tu as posé ne correspond pas à la réponse que tu as donné au post #10

Et il me semble que tu as écrit :


Bonne lecture

@Phil69970

non je voulu marquer résolu sur la proposition faites par vous Erreur de ma part

 

[Iibnou1]

Bonsoir tout le monde,

Bien avancé sur le fichier , je bloque sur comment colorier Marquer les.zones des reservation sur le planning(tout en affichant une couleur et un message sur la zone de couleur indiquant la reservation correspondantes).
Apres plusieurs recherche sur tuto et forum j'arrive pas a le Faire svp quelqu'un pour m'aider

je joins mon fichier .Merci