Discussion :

[Kestion100]

Bonjour,
Dans un tableau de suivi budgétaire, j'ai, en première ligne, de C1 à XFD1, des dates: 01/09/2021; 02/09/2021.....

Dans les colonnes sous certaines dates, j'ai des données chiffrées, les 02/09/2021; 05/092021; 13/09/2021....
Seul le mois de septembre est saisi et je voudrais à chaque 2 des mois suivant, par exemple, inscrire dans la cellule (02/10/2021; 02/11/2021...), dans les lignes dans lesquelles se trouvent une dépense, une formule qui renvoie au même jour de septembre.

Ex.:

Le 02/09/2021 en cellule D3, j'ai une somme et je voudrais inscrire, sur la même ligne, le 02/10/2021; 02/11/2021....=$D$3.

Vu le nombre de cellules important, je crains un traitement long mais il y a beaucoup de cellule vide à ne pas traiter.
Je pensais à une boucle avec un range mais la taille du range et la double condition de la date et de la ligne me fait craindre une perte de temps.
Je pourrais utiliser RangeXXXX.copy Range.YYYY mais ne parviens pas à mettre en oeuvre.

Si quelqu'un voit ce que je veux faire et voit une méthode efficace, merci beaucoup de l'aide.


Je préciserai si nécessaire mes propos

[BENNASR]

bonjour
je n'ai pas bien compris
mais si je veux insérer une formule dans toute la colonne C si la cellule et non vide je fais avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim lrow As Long
Const laformule As String = "=a2*b2"
lrow = Sheets("TEST1").Cells(Rows.Count, 1).End(xlUp).Row
 
With Worksheets("TEST1")
For i = 2 To lrow
If .Cells(i, 3) <> "" Then .Cells(i, 3).FormulaLocal = laformule
 
Next i
 End With
End Sub

[Kestion100]

Merci pour ta réponse.

En fait la première condition n'est pas la colonne mais le jour de la date en titre de colonne.
Je m'intéresse aux cellules des colonnes des 2 des mois suivant septembre qui ont une données dans une cellule de la colonne C.

01/09/2021	02/09/2021	03/09/2021	02/10/2021	02/11/2021	.............
	1000(C6)	=$C$6	=$C$6	.............	.............
.
.
.
.
.

Pour inscrire la formule, OK

[BENNASR]

pour ne pas tourner en vide peux tu joindre un capture écran ou un fichier test avec deux ligne de donnée et une simulation du résultat souhaité ..

[Kestion100]

Mon post modifié en tableau est presque l'illustration de ce que je voudrais faire mais les deux

Code :

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

$C$6

seront en faite en dessous de:
02/10/2021 et 02/11/2021, pas 03/09/2021.

[Kestion100]

Bonjour,
Je cherche à récupérer la colonne d'une date donnée.
J'utilise la méthode find:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim Jour As String, Rng As Range, Cond As String
 
Jour = "01"
 
Set Rng = Range("AG1:XFD1")
Rng.Select
 
For Each c In Rng
 
Cond = Mid(c.Value, 1, 2)
Debug.Print Cond
 
Dim Quand As Date, Ou As Long
Quand = DateSerial(2021, 9, Jour)
 
Ou = Range("A1:AF1").Find(Quand).Column
Debug.Print Ou

Et sur la ligne:

Code :

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

Ou = Sheets("C.COURANTS").Range("A1:AF1").Find(Quand).Column

J'ai l'erreur:
Erreur d'exécution 91
Variable objet ou variable de bloc with non définie

Je tourne en rond là dessus.


Merci d'un petit coup de main

[Kestion100]

Je précise que ma ligne 1:1 contient des dates au format JJ/MM/AAAA mais tout se passe comme si find ne voyait rien, dernier code tenté:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Quand As Variant, D_Txt As Date, Ou As Range, ColOu As Long
Quand = DateSerial(2021, 9, Jour)
D_Text = CDate(Quand)
Debug.Print D_Text
Set Ou = Sheets("C.COURANTS").Range("A1:AF1").Find(what:=D_Text, LookIn:=xlValues, LookAt:=xlWhole)
If Not Ou Is Nothing Then
            ColOu = c.Column
            Set c = Nothing
 
        End If
Debug.Print ColOu

[Pierre Fauconnier]

Salut.

Quand est une date, donc il ne sert à rien de la transformer avec CDate (qui transforme un "truc" en date).

Perso, je n'aime pas du tout Find^* (ne te l'ai-je pas dit ailleurs? SURTOUT avec les dates, car il mélange l'interface Excel et VBA, ce qui n'est pas bon pour les dates. Perso, j'utiliserais Application.Match (l'équivalent de EQUIV)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
  Dim d As Date
  Dim col
 
  d = DateSerial(2021, 9, 19)
  col = Application.Match(d * 1, Range("a1:f1"), 0)
  If Not IsError(col) Then
    Debug.Print "La date est en colonne " & col
  Else
    Debug.Print "Date non trouvée"
  End If
End Sub

Attention que la position est calculée par Match à partir de la première cellule de la plage qui lui est passée...




* Bien garder à l'esprit que FIND garde les options de la fenêtre de recherche qui ont été utilisées précédemment. Il est donc important de bien les préciser TOUTES dans le code VBA.

[Kestion100]

Merci.

J'ai une incompatibilité de type sur:

Code :

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

1
2
col = Application.Match(d * 1, Range("a1:f1"), 0)
  Debug.Print "La date est en colonne " & col

Quand je passe col en Variant, j'ai une erreur 2042 sur Col=

[Pierre Fauconnier]

C'est lié à cette discussion?



Tu ne donnes pas le code qui valorise d, ni la valeur de d...

Dans mon code, j'ai déclaré d en variant (dim d <=> dim d as variant). S'il prend la valeur d'erreur 2042, c'est que la date n'est pas trouvée. Es-tu sûr de la valeur de d?

[Kestion100]

En effet, c'était une partie du code rentrant dans le cadre de la première discussion

Je cherche la date 01/09/2021 dans la première ligne de mon tableau qui comporte des dates: 01/09/2021; 02/09/2021; 03/092021 pour récupérer la colonne dans laquelle cette date est inscrite.

Le début du code avec le tient qui suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Jour As String, Rng As Range, Cond As String
 
Jour = "01"
 
Set Rng = Range("AG1:XFD1")
Rng.Select
 
For Each c In Rng
 
Cond = Mid(c.Value, 1, 2)
Debug.Print Cond
 
 Dim d As Date
  Dim col As Long
 
 Range("C1:AF1").Select
  d = DateSerial(2021, 9, Jour)
  col = Application.Match(d * 1, Range("C1:AF1"), 0)
  Debug.Print "La date est en colonne " & col

La partie du Range considéré, dans la première ligne:

Colonne1 01/09/2021 02/09/2021 03/09/2021 04/09/2021 05/09/2021 06/09/2021

[Pierre Fauconnier]

Jour n'a pas besoin d'être en string, même si ça ne gêne pas (sauf ses voisins, peut-être... )

Les Select sont inutiles.

col ne peut pas être en long car si la date n'est pas trouvée, col doit pouvoir prendre la valeur d'erreur => dim col ou dim col as variant

Comme déjà dit, si tu as l'erreur 2042, c'est que la date n'est pas trouvée. Es-tu sûr que la date cherchée est présente dans la plage? Es-tu sûr que si tu la vois présente, c'est bien une date?

La partie du Range considéré, dans la première ligne:

De ce que je comprends, le 01/09/2021 est en B, or tu le recherches à partir de C1

Bien lire les commentaires qui te sont faits et prendre le temps de bien vérifier des données, tes variables, les plages que tu inspectes, etc...


Bis repetita: Je pense que c'est une mauvaise méthode que de remplir un budget de cette façon. Si tu t'entêtes, tu vas au devant de bien des déboires, ton classeur sera truffé d'erreurs et réagira comme une usine à gaz => il pètera à la moindre manipulation erronée.

[Kestion100]

Il ne s'agit pas de tenir le budget mais juste de remplir les virements automatiques mensuels pour former le tableau "un code éphémère" de "remplissage" en quelque sorte....pour ne pas avoir à copier à la main $C$6, par exemple, dans le cas précis mais qui n'est pas le seul, dans toutes les cellules de la ligne qui se trouvent sous les 2 de chaque mois.
Le reste du fichier ne fonctionnera même pas avec du code.

Je ne suis pas du tout informaticien de formation ni de fonction et j'avoue sans aucun problème tout ce que je ne connais pas sur le fond et la forme de ces tâches.

Ma première date et bien en C1.

La cellule (clic droit) est bien au format dateJJ/MM/AAAA.
Le tout forme un tableau structuré nommé et les dates forment la première ligne de ce tableau, ceci car je pense que ça me sera utile pour la suite.

Je penche pour un problème de format de mes dates, avec un code qui me renverrait le format de la cellule, j'en saurais certainement plus.

Je ne peux joindre mon fichier pour l'instant.

Le Jour en string, vu, j'ai modifié, je l'ai rhabillé en long;-)...plus sérieusement, les dates que j'aurai à chercher seront toutes des dates du mois de septembre qui sont toutes inscrite sur ma ligne 1 donc si le code ne trouve pas c'est parce que je me suis planté quelque part.
Les select sont juste là pour la construction du code, pour vérifier mes sources en mes cibles visuellement.

[Pierre Fauconnier]

Salut.

C'est lié à cette discussion?

Pas sûr d'avoir bien compris. Si tu veux reporter sur les jours d'octobre et de novembre les valeurs saisie sur les jours de septembre,tu peux utiliser ceci, en considérant que tes dates commencent en B1 pour le 01/09 et augmentent d'un jour vers la droite:

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test1()
  Dim Source As Range
 
  For Each Source In Range("b2").Resize(1, 30)
    If Source.Value <> 0 Then
      Source(1, 31).Formula = "=" & Source.Address
      Source(1, 62).Formula = "=" & Source.Address
    End If
  Next Source
End Sub

Bien noter qu'ici, je donne la méthode, il faudrait variabiliser les décalages (31 et 62) en fonction du mois de départ et du nombre de jours qu'il contient.



Cela dit, je suis trèèèèèèèèès loin d'être convaincu de ce genre de manoeuvre dans un classeur de budget, car tu mélanges données et présentation des données (1 des 7 péchés capitaux d'Excel). Ce n'est en tout cas pas ainsi que je procèderais, personnellement.

[Pierre Fauconnier]

Cela dit, pour répondre à ta demande technique...

Nul besoin de rechercher des dates. Tu connais les décalages à effectuer. Il y a 30 jours en septembre, donc n'importe quelle colonne de septembre décalée de 30 colonnes vers la droite donne le jour correspondant d'octobre, et 61 colonnes (30 jours de septembre+ 31 jours d'octobre donnent 61) de décalage donne le jour correspondant de novembre.

Il suffit donc de parcourir les cellules de septembre et, chaque fois que l'on trouve une valeur, on inscrit la formule 30 et 61 colonnes plus loin sur la même ligne, ou mieux, on reporte la valeur puisque de toute manière on devra relancer la procédure lors d'un ajout de valeur en septembre...

Voilà le code qui place les formules, en comprenant bien qu'on n'est plus dans un tableau structuré, dans ce cas!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
  Dim r As Range
  Dim j As Long
 
  For Each r In Range("a2:a" & Range("a1048576").End(xlUp).Row) 'chaque ligne du tableau
    For j = 3 To 32 'chaque colonne de septembre
      If r(1, j) <> 0 Then
        r(1, j + 30).FormulaR1C1 = "=rc[-30]"
        r(1, j + 61).FormulaR1C1 = "=rc(-61)"
      End If
    Next j
  Next r
End Sub

Pour placer les valeurs, on modifie les deux lignes d'affectation (perso, c'est ce que je ferais)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
  Dim r As Range
  Dim j As Long
 
  For Each r In Range("a2:a" & Range("a1048576").End(xlUp).Row) 'chaque ligne du tableau
    For j = 3 To 32 'chaque colonne de septembre
      If r(1, j) <> 0 Then
        r(1, j + 30).Value = r.Value
        r(1, j + 61).Value = r.Value
      End If
    Next j
  Next r
End Sub