Discussion :

[giguoin]

Bonjour à tous,
Bonne année 2011!

Je suis novice en macro, c'est pour remplir même date et heure quand il y a plusieurs bateaux.
ma question est quand Nbr_bateaux=2, comment remplir cellule A5 avec le même valeur que A4?
A B C
1 Date Heure Nbr_bateaux
2 01/01/2010 07:05 1
3 01/01/2010 07:55 1
4 01/01/2010 08:30 2
5
6 01/01/2010 09:54 1

J'ai un code pour cette macro, mais je suis incapable d'utiliser, quelqu'un peut m'aider svp?

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
21
22
23
24
25
26
27
Sub Completude()
Dim NbLigne, i, j As Integer
 
''Evaluation du nombre de lignes du fichier
NbLigne = Cells.SpecialCells(xlCellTypeLastCell).Row
 
 
For i = 2 To NbLigne Step 1
    If Cells(i, 6) > 1 Then
        j = i + 1
    While Cells(j, 2).Value = ""
            ''Mise à jour de la date
            Cells(j, 2).Value = Cells(i, 2).Value
            ''Mise à jour de l'heure avec conservation du format
            Cells(i, 3).Select
            Selection.Copy
            Cells(j, 3).Select
            Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=False
            ''Mise à jour du nombre de bateau
            Cells(j, 6).Value = "1"
 
            j = j + 1
    Wend
    End If
Next i
End Sub

[rvtoulon]

Bonjour,
si tu entres les données au fur et a mesure alors,
dans l'évènement "CHANGE" de la feuille ou se trouve ton tableau tu peux mettre ce code :

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
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
 
If Target.Column = 3 And Target.Value <> "" Then
    If Target.Value = 1 Then
       Target.Offset(0, -1) = Format(Now, "HH:MM")
       Target.Offset(0, -2) = Date
    ElseIf Target.Value > 1 Then
       i = Target.Value - 1
         For x = 0 To i
          Target.Offset(x, 0) = 1
          Target.Offset(x, -1) = Format(Now, "HH:MM")
          Target.Offset(x, -2) = Date
        Next
     End If
ElseIf Target.Column = 3 And Target.Value = "" Then
  Target.Offset(0, -1) = ""
  Target.Offset(0, -2) = ""
End If
End Sub

a chaque fois que tu met une valeur dans la colonne C il affiche a côté la date en A et l'heure en B et si tu met un chiffre supérieur à 1 dans C il réalise ce que tu souhaites.

[rvtoulon]

Je pense être allé un peu vite et ne pas avoir bien saisie ce que tu souhaites, car en fait si j'ai compris le tableau existe déjà.
regarde le fichier qui ce trouve dans le lien ci-dessous et dis moi ce qu'il en est :
http://www.cijoint.fr/cjlink.php?fil...cijZYMJAtw.xls