Discussion :

[RYAN78]

Bonjour
Je cherches à faire boucler la procédure suivante pour chaque ligne d'un classeur excel.
Mon but est qu'en fonction de la date saisie dans la colonne A, j'obtiennes la mise en gras des infos jusqu'à la colonne N incluse.
Si la date est inferieure à la date du jour aucune modif à faire.
Voici mon code qui fonctionne, mais que sur la ligne 1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub CellulesEnGras()
     If Not IsEmpty(Range("A1")) Then
                    If Range("A1") = Date Then
                        With Range("A1:N1")
                           .Font.Bold = True
                        End With
                    Else
                        With Range("A1:N1")
                            .Font.Bold = False
                       End With
                    End If
 
      End If
End Sub

[COCONUT2]

C'est normal car tu ne test que la cellule A1
exemple avec une boucle testant 10 lignes de ligne 1 jusqu'à 10

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
20
Sub CellulesEnGras()
dim i as integer
dim zone as string
 
For i = 1 to 10
     If Not IsEmpty(cells(i,1)) Then
                    zone = "A" & i & ":N" & i
                    If cells(i,1) = Date Then
                        With Range("A" & i)
                           .Font.Bold = True
                        End With
                    Else
                        With Range(zone)
                            .Font.Bold = False
                       End With
                    End If
 
      End If
next
End Sub

je te laisse tester car chez moi la fonction IsEmpty plante systématiquement

[RYAN78]

Merci pout on aide, je débutes en vba.

aurais tu des cours à me conseiller ???

[tonton fred]

Bonjour,
Le lien "cours et tutoriels" en haut de la page ne te convient pas ?

Pour commencer, je te conseillerais de lire les FAQ Excel et VBA (en diagonale pour commencer ) et surtout les indispensables pages de SilkyRoad (en particulier Debuter en VBA et les variables)

http://vb.developpez.com/faqvba/
http://excel.developpez.com/faq/
http://silkyroad.developpez.com/VBA/DebuterMacros/
http://silkyroad.developpez.com/VBA/LesVariables/

Et dans les options de l'editeur cocher "obliger la declaration de variable" ou quelque chose du genre (j'ai excel en anglais). Ca rend l'editeur psychorigide sur les variables mais permet de bien mieux comprendre son programme (puisqu'on doit se poser beaucoup plus de question sur le fonctionnement, assez ch*** au debut et puis apres 2 jours on y pense meme plus).
Et puis bien sur, utiliser l'aide F1 integree a VBA qui est excellente (clic sur le mot clef puis F1).
Et aussi, ne pas hesiter a utiliser l'editeur de macro pour faire des actions simples et decortiquer le code apres coup. Et lire les contributions lorsque tu as un probleme (ou par curiosite, on y trouve plein d'astuces tres tres utiles).

Amuses toi bien