Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Date

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

le___destin

XLDnaute Occasionnel
Je veux créer une colone d'un tableau lorsque je rempli la premiere case emplie automatiquement les autre cellule jusqu'à la date du fin du moi
 
Trier par date Trier par votes
Bonjour,

Deux choses :
1. Si on fusionne des cellules, les valeurs de G3 et G14 sont effacées.
2. Ca ne fonctionne pas si il y as des formules en F12:F14. Il faut alors modifier la macro.

VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect "0000"
Dim cellule As Range
   If Not Intersect(Target, [F12:F14]) Is Nothing Then
    Application.EnableEvents = False
    If Application.CountIf([F12:F14], "- -") = 3 Then
      [G12:G14].MergeCells = True
      GoTo Fin
    End If
    If [G12:G14].MergeCells = True Then
      [G12:G14].MergeCells = False
    End If
    For Each cellule In Intersect(Target, [F12:F14])
      If cellule.Value = "- -" Then
        cellule.EntireRow.Hidden = True
      Else
        cellule.EntireRow.Hidden = False
      End If
    Next cellule
Fin:
    Application.EnableEvents = True
  End If
'ActiveSheet.Protect "0000"
End Sub

Daniel
 
Vote positif 0 Vote négatif
elle ne fonctionne pas ..
 
Vote positif 0 Vote négatif
C'est ce que je t'avais dit. Comme F12:F14 contient des formules, utilise :

VB: 
Private Sub Worksheet_Calculate()
Dim cellule As Range
  Application.EnableEvents = False
  If Application.CountIf([F12:F14], "- -") = 3 Then
    Application.DisplayAlerts = False
    [G12:G14].MergeCells = True
    Application.DisplayAlerts = True
    GoTo Fin
  End If
  If [G12:G14].MergeCells = True Then
    [G12:G14].MergeCells = False
  End If
  For Each cellule In [F12:F14]
    If cellule.Value = "- -" Then
      cellule.EntireRow.Hidden = True
    Else
      cellule.EntireRow.Hidden = False
    End If
  Next cellule
Fin:
  Application.EnableEvents = True
End Sub

Daniel
 
Vote positif 0 Vote négatif
Bonjour,

Essaie :

VB: 
Private Sub Worksheet_Calculate()
Dim cellule As Range
  Application.EnableEvents = False
  If Application.CountIf([F12:F14], "- -") = 3 Then
    Application.DisplayAlerts = False
    [G12:G14] = ""
    [G12:G14].MergeCells = True
    Application.DisplayAlerts = True
    GoTo Fin
  End If
  If [G12:G14].MergeCells = True Then
    [G12:G14].MergeCells = False
  End If
  For Each cellule In [F12:F14]
    If cellule.Value = "- -" Then
      cellule.EntireRow.Hidden = True
    Else
      cellule.EntireRow.Hidden = False
    End If
  Next cellule
Fin:
  Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif
Oui, mais tu n'avais pas demandé de la supprimer non plus.

VB: 
Private Sub Worksheet_Calculate()
Dim cellule As Range
  Application.EnableEvents = False
  If Application.CountIf([F12:F14], "- -") = 3 Then
    Application.DisplayAlerts = False
    [G12:G14] = ""
    [G12:G14].Validation.Delete
    [G12:G14].MergeCells = True
    Application.DisplayAlerts = True
    GoTo Fin
  End If
  If [G12:G14].MergeCells = True Then
    [G12:G14].MergeCells = False
  End If
  For Each cellule In [F12:F14]
    If cellule.Value = "- -" Then
      cellule.EntireRow.Hidden = True
    Else
      cellule.EntireRow.Hidden = False
    End If
  Next cellule
Fin:
  Application.EnableEvents = True
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2013 Calculer la moyenne en prennante compte des "Absent" comme 0 et s'ajuste automatiquement en ajoutant ou en supprimant les colonnes
Réponses
13
Affichages
315
lestoiles1
C
  • Question Question
Microsoft 365 Déplacer une ligne sous condition
Réponses
5
Affichages
265
CB7
C
K
  • Question Question
Microsoft 365 tableau avec fonctionnement en double logique
Réponses
7
Affichages
102
KRISS2A
K
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
430
AtTheOne
F
  • Question Question
XL 2019 Demande aide formule recherche
Réponses
3
Affichages
117
Fidmo
F
  • Question Question
XL 2019 Ajout d'un bouton DELETE sur mon USF
2 3
Réponses
43
Affichages
1 K
Phil Du59
T
  • Résolu(e)
XL 2019 Formulaire Congés VBA
Réponses
3
Affichages
154
cathodique
  • Question Question
XL 2016 *** RESOLU MERCI :)*** Impression personnalisée.
2 3
Réponses
35
Affichages
517
TooFatBoy
  • Résolu(e)
XL 2013 Avoir la liste dans une date précise
Réponses
4
Affichages
153
job75
G
  • Question Question
Microsoft 365 Créer somme sous condition
Réponses
7
Affichages
135
gary34
G
S
  • Résolu(e)
XL 2021 Graphique TCD par date
2
Réponses
20
Affichages
516
Hecatonchire
H
K
  • Question Question
XL 2016 VBA: Selection Date renvoie copier/coller
Réponses
8
Affichages
1 K
Krome36
K
  • Question Question
XL 2016 Transformer la mise en forme d'un tableau
2
Réponses
22
Affichages
511
Cousinhub
  • Question Question
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
5
Affichages
496
jeff1494
L
  • Question Question
XL 2021 saisie automatique d'un onglet à un autre
Réponses
2
Affichages
200
LuckyLuciano
L
  • Résolu(e)
Microsoft 365 Modification esthétique tab
2
Réponses
18
Affichages
182
Chubby
C
  • Question Question
Microsoft 365 format date
Réponses
3
Affichages
139
Dudu2
F
  • Question Question
Microsoft 365 macro-formule pour recopier une ligne automatiquement à chaque changement de nom
Réponses
5
Affichages
134
Cousinhub
O
  • Question Question
XL 2013 Planification automatique des rdv d'intervention en fonction des dates disponibles
Réponses
3
Affichages
359
cathodique
  • Question Question
XL 2016 consommation électrique
Réponses
4
Affichages
210
ob7523
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…