points obscurs macro

Version imprimable

3 pièce(s) jointe(s)

Bonjour à tous,
J'aimerais que vous m'aidiez à comprendre quelques points du code de la macro du module9 qui sert à afficher le planning d'un potager sur les semaines d'un semestre, avec 2 boutons flêches pour avancer ou reculer d'un semestre, et afficher une couleur selon la culture et entre la date de semis et celle de récolte. (fonctionnel sur le 1er et 2eme semestre 2024)
Pièce jointe 670896
Le code vient de Bsalv d'excel-pratique, mais il ne répond plus.
Dans la macro il y a mes explications, mais il me manque encore les points suivants :
- d'abord la structure des macros : les flèches sont affectées comme çà :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
	'Page semestriel suivant
	Sub semestrSuiv()
	     Nouv_Semestre True
	     End
	End Sub
	'Page semestriel précédent
	Sub semestrPrec()
	     Nouv_Semestre False
	     End
	End Sub
	Puis la macro ou il y a tout le code s'appelle :
	Sub Nouv_Semestre(bSem)
La variable bSem est définie nulle part, bizarre, même si on s'aperçoit que c'est une variable booléenne avec if bSem then (ou if bSem =true)

que veut dire ce value2 avec le tableau en entier

Code:

1
2
          'tableau Cultures
          ab = Range("Culturs").Value2 '?

J'ai le souci que le 6/11 s'affiche le11/6, et le cdate() ou le formar("dd/mm/yyyy") ne changent rien
Pièce jointe 670898
Plus compliqué :
Il y a rien de numérique dans la couleur, donc je comprends pas.

Code:

1
2
3
4
5
6
7
8
9
10
11
                         'application couleur de la page Listes colonne des cultures
                         R = Application.Match(ab(i, 3), Sheets("Listes").Range("Q1:Q100"), 0)
                         If IsNumeric(R) Then     '? pas de couleur couleur numérique
                              'resize à partir de la 6éme colonne et couleur de la cellule
                              .Cells(ptr, 6).Resize(, UBound(aA)).SpecialCells(xlConstants).Interior.Color = Sheets("listes").Cells(R, "Q").Interior.Color
                              'resize à partir de la 6éme colonne et couleur de la police
                              .Cells(ptr, 6).Resize(, UBound(aA)).SpecialCells(xlConstants).Font.Color = Sheets("listes").Cells(R, "Q").Font.Color
                         Else
                         'sinon police blanc
                              .Cells(ptr, 6).Resize(, UBound(aA)).SpecialCells(xlConstants).Font.ColorIndex = 2
                         End If

Pièce jointe 670897
Merci pour vos explications.

13/10/2025, 09h48
Valtrase

Bonjour à tous,

Citation:

que veut dire ce value2 avec le tableau en entier

Pour Value2 faut juste aller voir l'aide de Crosoft. Ce n'est pas bien compliqué non ?

Citation:

Il y a rien de numérique dans la couleur, donc je comprends pas.

Là encore un peu de lecture pour Color et la fonction RGB.

Vous y trouverez des réponses à toutes vos questions en lisant correctement.

Citation:

La variable bSem est définie nulle part, bizarre, même si on s'aperçoit que c'est une variable booléenne avec if bSem then (ou if bSem =true)

C'est un paramètre du macro Nouv_Semestre déclaré comme variant utilisé uniquement à l’intérieure du macro, il est possible de réécrire

Code:

Sub Nouv_Semestre(ByVal bSem As boolean)

Ce paramètre transmet la valeur de l'argument lors de l'appel du Nouv_Semestre
Nouv_Semestre True ' bSem = True
et
Nouv_Semestre False ' bSem = False

Deuxième remarque , il faut corriger les dates qui sont écrites avec seulement deux chiffes pour l’année elles posent problème pour le macro de traitement, les dates doivent être saisies correctement c'est au format d'affichage qu'il faut ajuster pour n'afficher qu deux chiffres pour l’année.

Utilise ce code pour corriger les colonnes F J N Q U X AB AE AI AL AP
(executer le code une seule fois)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub DateCorrection() Dim c, v, Colonne Application.ScreenUpdating = False For Each Col In Split("F J N Q U X AB AE AI AL AP", " ") Set Colonne = Range("Culturs").Columns(Col) For Each c In Colonne.Cells v = Split(c.Text, "/") If UBound(v) = 2 Then c.Value = DateSerial(v(2), v(1), v(0)) End If Next Next Application.ScreenUpdating = True MsgBox "Fin" End Sub