problème de code sur dates

Version imprimable

Bonjour,

Je suis novice en VBA sur Excel
Je souhaite faire une fonction qui génère la date automatiquement (dans la cellule A4 pour la première)dès qu'une certaine cellule n'est pas vide (en l'occurrence la B4 et en incrémentant cette dernière , B5, B6 ... pour que la date soit dans A5, A6, ...)
Mon code semble bon, aucune erreur n'y est détectée, je fais exécuter mais il ne se passe rien, merci de m'aider à comprendre ce que je fais mal; Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub automatiser_date() Dim nb As Integer ' nb = le nombre de lignes max Dim c As Integer ' c = le n° de la ligne For c = 4 To nb ' pour faire les cellules de la 4 au max If Cells(c, 2).Value <> "" Then ' cells(n°cellule, n°colonne) différent de vide If Cells(c, 1).Value = "" Then ' et si la cellule de date n'est pas vide Cells(c, 1).Value = Date ' y mettre la date End If ' sinon il ne se passe rien, cela évite que la date ne s'ecrase chaque jour End If Next End Sub

Bonjour,
dans le code, evenement "change" de ta feuille, copie cette procédure :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nb As Integer ' nb = le nombre de lignes max
Dim c As Integer ' c = le n° de la ligne
If Target.Column = 2 And Target.Row > 3 Then
   With ActiveSheet
      nb = .Range("B" & .Rows.Count).End(xlUp).Row
      For c = 4 To nb ' pour faire les cellules de la 4 au max
         If .Cells(c, 2).Value <> "" And .Cells(c, 1).Value = "" Then ' cells(n°cellule, n°colonne) différent de vide
            .Cells(c, 1).Value = Date
         End If
      Next c
   End With
End If
End Sub

PS : j'ai ajouté certains "."

14/03/2011, 16h29
aereno

Bonjour,

Une petite simplification pour le numéro de la dernière ligne :

Code:

nb = Range("b4").End(xlDown).Row
14/03/2011, 16h35
casefayere

Pour aereno,
Pas d'accord avec

Code:

nb = Range("b4").End(xlDown).Row

si une cellule est vide nb sera egal à la cellule anterieure, exemple B4, B5 sont remplies B6 est vide B7 est remplie donc avec ton code nb = 5

Bien qu'il s'agisse d(incrémentation, je préfère ma solution, que va faire l'utilisateur par la suite ?
14/03/2011, 16h51
aurogrady

casefayere : qu'entends tu par "evenement "change" de ta feuille", sur excel j'ai cliquer sur visualiser le code, ça m'a ouvert visual basic j'ai fait insertion d'une procédure private en sub du nom de automatiser_date ....

Par ailleurs afin que je puisse comprendre et pouvoir ensuite m'en servir et m'améliorer, peux tu m'expliquer ton code ... pourquoi

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

merci beaucoup de ton aide

re,
ma procédure se place dans le code de la feuille concernée, c'est à dire, dans l'éditeur VBA, cliques 2 fois sur la feuille (à gauche) et sytematiquement, 'éditeur va te proposer un évènement "selection_change", ignore-le et colles mon code qui agira dès que tu modifiera une cellule de B4 à b..., le code découpé :
ci-dessous, l'évènement expliqué ci-dessus

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

Code:

Dim nb As Integer ' nb = le nombre de lignes max

là ce n'est qu'une déclaration, plus bas je mets la valeur

Code:

Dim c As Integer ' c = le n° de la ligne

ci-dessous, le code n'agira que si la cellule est en B et minimum 4eme ligne, target remplace la ligne active

Code:

If Target.Column = 2 And Target.Row > 3 Then

Code:

With ActiveSheet

evite de répeter activesheet, mais dans ton cas => facultatif mais il faut enlever les "." avant "range" ou "cells"

Code:

nb = .Range("B" & .Rows.Count).End(xlUp).Row

nb = dernière cellule renseignée, la formule part du bas et remonte juqu'à trouver une cellule renseignée
le reste tu l'as compris ?
Code:

1 2 3 4 5 6 7 8 For c = 4 To nb ' pour faire les cellules de la 4 au max If .Cells(c, 2).Value <> "" And .Cells(c, 1).Value = "" Then ' cells(n°cellule, n°colonne) différent de vide .Cells(c, 1).Value = Date End If Next c End With End If End Sub

16/03/2011, 09h29
aurogrady

merci casefayere
une derniere question, lorsque je suis sur VBA je double click sur la feuillle concernée par le code je mets mon code dans la fenêtre qui s'ouvre néanmoins lorsque que je ferme mon dossier, que je l'enregistre meme en mode prenant en compte les maccros, à la réouverture plus rien ne fonctionne je ne comprend pas pourquoi, j'active les maccros mais ma fonction ne fait pas partie de la liste des maccros
Peux tu m'expliquer le fonctionnement des pages de code avec excel pour que cela fonctionne direct à chaque ouverture du dossier?

Merci
16/03/2011, 11h04
casefayere

Bonjour le forum, aurogrady

Citation:

...à la réouverture plus rien ne fonctionne je ne comprend pas pourquoi...

moi c'est cette phrase que j'aimerais comprendre, qu'est qui ne fonctioone pas ?, peux-tu envoyer ton fichier ?

Citation:

...ma fonction ne fait pas partie de la liste des macros...

de quelle liste parles-tu ?

Dans l'éditeur VBA, tu retrouves tes macros, si tu as bien copié la macro comme je l'ai dit, dans l'éditeur, tu la retrouveras en double-cliquant sur la feuille concernée.

Bonne journée, (j'attends ta réponse)
16/03/2011, 13h25
aurogrady

1 pièce(s) jointe(s)

quand j'ouvre le dossier excel (préalablement enregistré et fermé), les fonctions que j'avais donné à mes cellules ne fonctionne plus. Quand je clique sur visual basic dans developpeur, mon code s'ouvre bien mais dans la feuille en question les actions programmées ne sont pas en fonctionnement et lorsque je fais activer les maccros rien ne fonctionne non plus, et sous excel, lorsque que je clique sur maccros dans developpeur le code que j'ai créé ne fais pas partie de la liste affichée
16/03/2011, 16h45
aurogrady

je viens de m'appercevoir que ce fichier que je t'ai joint, j'ai du l'enregistré en xls pour pouvoir le joindre et que sous cette extension à l'ouverture il fonctionne .... je ne comprend pas ....
16/03/2011, 18h33
casefayere

Bonsoir,

tu as dit :

Citation:

une derniere question, lorsque je suis sur VBA je double click sur la feuillle concernée par le code je mets mon code dans la fenêtre qui s'ouvre néanmoins lorsque que je ferme mon dossier, que je l'enregistre meme en mode prenant en compte les maccros, à la réouverture plus rien ne fonctionne je ne comprend pas pourquoi, j'active les maccros mais ma fonction ne fait pas partie de la liste des maccros

et moi je ne peux pas voir de quelles fonctions tu parles dans la mesure où ton fichier envoyé ne comporte qu'un seul code, ma propre macro.