Contenu récent par Papou-net

  1. Papou-net

    XL 2016 Verrouiller une ligne après la date de saisie

    RE: Vois si cette version corrigée te convient. Cordialement. .
  2. Papou-net

    XL 2019 Pourriez-vous SVP y intervenir pour une optimisation. Merci beaucoup d'avance

    Bonsoir Saalut, Le Forum, Peux-tu joindre ton fichier sans le mot de passe d'accès à VBA, stp? A + Cordialement.
  3. Papou-net

    XL 2016 Verrouiller une ligne après la date de saisie

    Bonjour Restau, le Forum, Ci-joint copie de ton fichier avec une macro qui renvoie la sélection à la colonne A si la date est antérieure à la date du jour. Il n'y a pas d'autre solution possible (à ma connaissance) en dehors des macros. Cordialement. Edit: inspiré par la version de Dudu2, une...
  4. Papou-net

    XL 2016 probleme dans une macro lgn = cell.Row

    Bonjour neim, le Forum, Difficile d'être affirmatif sans fichier pour tester, mais il semblerait que la variable Cell est vide. Tu peux t'en assurer en placent un point d'arrêt sur la ligne en jaune, puis en positionnant le curseur sur Cell tu pourras lire sa valeur. Cordialement.
  5. Papou-net

    Verouillage pavé numérique et macro

    Oups, j'ai confondu verrouillage numérique et verrouille majuscules (honte à moi). Cordialement
  6. Papou-net

    Mise à jour des cellules via des TextBox

    Bonjour taze33, Tu peux essayer ceci: Private Sub CommandButton2_Click() Dim l As Long Dim i As Integer Dim LL As Long If MsgBox("Etes-vous certain de vouloir MODIFIER ce dossier ?", vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub l = Me.ComboBox1.ListIndex + 2...
  7. Papou-net

    Verouillage pavé numérique et macro

    Bonjour jouxte, Essaie ceci: SendKeys "%{capslock}" pour rétablir le verrouillage à l'endroit approprié de la macro. Cordialement.
  8. Papou-net

    XL 2016 Aide calcul Excel

    PS N'oublie pas de modifier la plage de la MFC en fonction de tes besoins. Cordialement.
  9. Papou-net

    XL 2016 Aide calcul Excel

    Bonsoir Arthur, et bienvenue sur XLD, Nul besoin de se torturer l'esprit avec des formules conditionnelles. De simple formules d'addition/soustraction font très bien le travail. Le solde est calculé sur chaque ligne. Une mise en forme masque l'affichage en cas de valeurs vides en A, B et E...
  10. Papou-net

    XL 2010 MODIFICATION PAR USERFORM

    Bonjour nadem0068, Ci-joint ton fichier modifié selon ta demande. Si je puis me permettre, il me semblerait plus simple de saisir les dates dans une seule case pour les jours, mois et date. Dans la solution actuelle, j'ai prévu le formatage des données sur deux ou quatre chiffres selon le cas...
  11. Papou-net

    XL 2013 changement de couleur du smiley

    Bonjour controlo, C'est la mise en forme conditionnelle de F9 qui effectue le changement de couleur (menu Accueil...Mise en forme conditionnelle...) Pour ce qui concerne le thermomètre, peux-tu préciser ta demande? A + Cordialement. Oups, salut Modeste Gedee
  12. Papou-net

    XL 2013 PAS DE NEXT SANS FOR

    RE J'en ai relevé un autre manquant. Cordialement.
  13. Papou-net

    XL 2013 PAS DE NEXT SANS FOR

    Bonjour MrAntonin, thebenoit59, Je relève un End If manquant sous la ligne surlignée en jaune dans la PJ. Cordialement.
  14. Papou-net

    Changement de couleur de police ligne aléatoire

    RE Sinon, pour revenir à la solution sans formulaire: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Not Intersect(Target, Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then If MsgBox("Voulez-vous mettre le montage [" &...
  15. Papou-net

    Changement de couleur de police ligne aléatoire

    Il te suffit de remplacer "Target" par "ActiveCell" dans le code du bouton OUI: Private Sub CommandButton1_Click() If Not Intersect(ActiveCell, Range("A3:A" & Range("A" & Rows.Count).End(xlUp).Row)) Is Nothing Then If ActiveCell.Font.Color = RGB(255, 0, 0) Then Range("A" & ActiveCell.Row &...