fonction "ne rien faire" (debutante)

[charlotte]

Bonjour,
Je voudrais pouvoir changer la valeur d'une case seulement si une condition est remplie : j'avais pense a la fonction
IF(condition;changement de valeur;'ne rien faire'), mais comment justement demander a excel de ne rien faire (de garder la valeur qui etait precedemment dans cette case en fait) ?
Peut etre que IF n'est pas la bonne fonction a utiliser ?
Merci de votre aide,
Charlotte

 

[Dan]

Re:fonction \"ne rien faire\" (debutante)

Message édité par: Dan, à: 05/08/2005 23:33

 

[Dan]

Bonsoir Charlotte,

me revoici avec le code que tu pourrais placer :

Sub Remplir()
Dim i As Byte
Dim c As Range
Dim ref As Worksheet
Dim chemin as String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
chemin = 'C:\\le nom du dossiers dans le répertoire pour arriver au fichier\\'
Workbooks.Open Filename:=chemin & 'Charlotte.xls'
Set ref = Workbooks(1).Worksheets('sheet1') 'reference à la feuille 1
With Workbooks('charlotte.xls').Sheets('Sheet2')
For Each c In .Range('A1:H1')
    If c = ref.Range('A1') Then
    i = .Cells(65536, c.Column).End(xlUp).Row + 1
        .Cells(i, c.Column) = ref.Range('A2')
        .Cells(i + 1, c.Column) = ref.Range('A3')
    End If
Next c
End With
Application.ScreenUpdating = True
End Sub

Avec :
- Charlotte.xls le fichier contenant la sheet2. Donc le fichier de sauvegarde dans le sous répertoire.
-Chemin : le répertoire où se trouve le fichier charlotte.xls. Nom des dossiers suivant d'un backslash entre chaque dossier.

NB : Il te faut enregistrer le fichier de sauvegarde chaque fois que tu as encodé une nouvelle donnée; sans quoi la donnée précédente est effacée.

Merci à Hervé au passage pour ses controles et conseils.

Espérant que cela te conviendra

Bonne soirée

 

[charlotte]

merci beaucoup !!
charlotte