XL 2016 Excel vba

Iibnou1

XLDnaute Nouveau
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é🤢🤮
 
Solution
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

XLDnaute Barbatruc
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
 

Pièces jointes

  • IibnouHotel V1.xlsm
    106.9 KB · Affichages: 4

Iibnou1

XLDnaute Nouveau
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é.
 

Phil69970

XLDnaute Barbatruc
@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

1661182793242.png


@Phil69970
 

Iibnou1

XLDnaute Nouveau
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
 

Phil69970

XLDnaute Barbatruc
@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 :
Merci Beaucoup Phil69970

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

Bonne lecture

@Phil69970
 

Iibnou1

XLDnaute Nouveau
@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

XLDnaute Nouveau
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
 

Pièces jointes

  • IibnouHotel OK.xlsm
    491.7 KB · Affichages: 7

Discussions similaires

Réponses
5
Affichages
307

Statistiques des forums

Discussions
313 226
Messages
2 096 354
Membres
106 584
dernier inscrit
guillaume.81.deluca@gmail