Discussion :

[Didpa]

Bonjour

voilà, j'ai un tableau en colonne B se trouve des dates (du 01/01/2018 à .............2030) dans les autres colonnes jusqu’à Y:Y des infos qui sont entrées grâce à des formules.

L'idée serait de bloqué ces formules du 01/01 (B18) au lundi de la semaine en cours (ou si ce n'est pas possible à la date du jour -1) par un copié collé soit à l'ouverture de la feuille ou par un command button.

J'ai bien une formule pour sélectionner la date du jour ou une date inférieur en changeant ma valeur DATE.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SelectDate(Feuille As String)
 
Derlign = Worksheets(Feuille).Range("B65536").End(xlUp).Offset(1, 0).Row
 
For i = 1 To Derlign
    If Range("B" & i) = Date Then
        Range("B" & i).Activate
        ActiveCell.Offset(0, 2).Activate
        Exit Sub
    End If
Next i
 
End Sub

Mais je ne vois pas comment lui dire range B18:et Y date du jour-7

et ensuite copié collé

Merci d'avance.

[MarcelG]

Bonjour Didpa,

2 remarques:
- Déclarer les variables.
- Pour définir la dernière ligne, il est plus opportun de partir du nombre de lignes que comporte la feuille de travail

L'idée serait de bloqué ces formules du 01/01 (B18) au lundi de la semaine en cours (ou si ce n'est pas possible à la date du jour -1) par un copié collé soit à l'ouverture de la feuille ou par un command button.

Excel offre de nombreuses possibilités pour la gestion des dates.
Mais là, j'ai du mal à comprendre l'action que tu souhaites voir se réaliser.

Qu'y a-t-il dans ta colonne (valeurs, formules) et que veux-tu effectuer?
Retourne un exemple de cellule(s) initiale(s) et de cellule(s) après modification.

[Didpa]

Bonjour Marcel

Merci d'avoir pris le temps de t’intéresser à mon problème.

En ce qui concerne les variables ok j'aurais du les déclarer.
pour ce qui est de la dernière ligne, ce programme sera effectif quelques année encore (j'espère ) donc la dernière ligne je ne la connais pas...

J'ai besoin de fixer les lignes car quand je change certaines valeur de cellule cela affecte tout mon tableau. Donc j'aimerais bloquer celle qui sont antérieur à la date.

[MarcelG]

Salut,

Pour la dernière ligne, je t'ai indiqué qu'il fallait partir du nombre de lignes.
Ce dernier est retourné par la propriété Count.

Ce qui donne (à adapter)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Worksheets(1)
      derlign = .Cells(.Rows.Count, 1).End(xlUp).Row 
End With

Pour coller à une cellule comportant une formule sa valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With Range("A1")
  .Value = .Value
End With

(à adapter)
Ce qui équivaut un collage spécial valeurs

Dès lors, je ne vois pas à quoi correspond ta question.
Si tu as des difficultés, le plus simple serait de retourner un classeur simplifié (en dernier recours)

[Didpa]

Re

Ce n'est pas que je ne veux pas t'envoyer un fichier, mais il est lourd.

ou je bloque et ou je ne sais pas faire c'est appliquer la méthode RANGE afin de sélectionner de (B18):Y(Date du jour)
Ensuite copier la selection et la coller à la même place afin de figer les cellules pour ne plus avoir les formules active.

Cordialement

[MarcelG]

Salut,

J'ai bien dit

classeur simplifié

(avec seulement la feuille de travail concernée et une vingtaine d'enregistrements).
Il ne devrait pas être très lourd.

Je t'ai indiqué comment, dans une cellule, remplacer une formule par la valeur retournée.

Désolé mais je ne vois toujours pas ce que signifie

(B18):Y(Date du jour)

Si tu recherches une date, dans une colonne, alors tu peux utiliser la méthode Find.