XL 2016 Excel vba

Iibnou1 · 20 Août 2022

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é

Deadpool_CC · 24 Août 2022

Déja la MFC Qui colorie ton planning en fonction des données qui sont dans la feuille RP.

ps : la formule pour lea MFC est :

VB:

=SOMMEPROD((G$6>=RP!$A$3:$A$17)*(G$6<RP!$B$3:$B$17)*($A8=RP!$C$3:$C$17))

Pour le texte je ne sais pas bien ce que tu attends ya pas de Réf. de commande ou autre chose qui te permet d'identifier de manière certaine une Résa... donc je ne sais pas quoi afficher.
selon ce que tu veux ... après on risque de devoir faire du VBA pour une gestion des commentaire dans une cellule (ajout, modif, suppr.) en fonction des évolution des Résa.
nettement plus compliqué

Phil69970 · 20 Août 2022

Bonjour @Iibnou1 et bienvenu sur XLD

Avec un fichier représentatif cela irait mieux

@Phil69970

Iibnou1 · 20 Août 2022

Phil69970 à dit:
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 · 22 Août 2022

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 · 22 Août 2022

Phil69970 à dit:
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 · 22 Août 2022

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 · 22 Août 2022

@Iibnou1

Iibnou1 à dit:
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 · 22 Août 2022

Phil69970 à dit:
@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 · 22 Août 2022

Iibnou1 à dit:
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 · 22 Août 2022

Deadpool_CC à dit:
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 · 22 Août 2022

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 · 22 Août 2022

Merci beaucoup

je.rencontre pas de Souci

Phil69970 · 22 Août 2022

@Iibnou1
Bonjour @Deadpool_CC

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

VB:

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 :

Iibnou1 à dit:
Merci Beaucoup Phil69970

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

Bonne lecture

@Phil69970

Iibnou1 · 22 Août 2022

Phil69970 à dit:
@Iibnou1
Bonjour @Deadpool_CC

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

VB:

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 · 22 Août 2022

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

XL 2016 Excel vba

Iibnou1

XLDnaute Nouveau

Deadpool_CC

Phil69970

XLDnaute Barbatruc

Iibnou1

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

Pièces jointes

Iibnou1

XLDnaute Nouveau

Iibnou1

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Iibnou1

XLDnaute Nouveau

Deadpool_CC

XLDnaute Accro

Iibnou1

XLDnaute Nouveau

Deadpool_CC

XLDnaute Accro

Iibnou1

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Iibnou1

XLDnaute Nouveau

Iibnou1

XLDnaute Nouveau

Pièces jointes

Discussions similaires