Discussion :

[fabinouz]

Bonjour,

N'étant pas un expert d'Excel, encore moins des macros, je suis devant une problématique...

J'ai un classeur excel (A) où chaque colonne représente une date, et deux plages de cellules (C7:EB12,C37:EB42) où les données sont importées d'un autre classeur excel (B).
Le classeur excel B est mis à jour quotidiennement, et les données de la veille sont écrasées par celles du jour.
J'ai créé une macro très simple consistant à ouvrir ces deux classeurs afin que les données soit mises à jour dans le classeur A. Cependant les données de la veille sont écrasées et remplacées par les données du jour.
J'aimerai donc créer une macro consistant à me sélectionner toutes les cellules non vides dans la plage de donnée C7:EB12,C37:EB42 du classeur A et de copier/collage spécial valeur ces cellules, afin qu'elles soient figées dans le temps, mais de pas modifier les cellules vides (contenant des formules qui doivent être préservées).

Quelqu'un pourrait-il me dire comment faire cette macro?

Merci pour votre aide!

[Daniel.C]

Bonjour,

Essaie (non testé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Copie()
    Dim C As Range, Plage As Range
    With Workbooks("ClasseurA").Sheets(1)
        Set Plage = Union(.[C7:EB:12], .[C37:EB42])
    End With
    With Workbooks("ClasseurB").Sheets(1)
        For Each C In Plage
            If C.Value <> "" And .Range(C.Row, C.Column).HasFormula = False Then
                .Range(C.Row, C.Column).Value = C.Value
            End If
        Next C
    End With
End Sub

[fabinouz]

Merci beaucoup pour ta réponse. C'est super! J'ai pu entrer le code que tu m'as donné, j'ai dû modifier quelques éléments pour que le code puisse s'appliquer à mes fichiers, mais je suis bloqué à un moment donné. J'ai cette erreur que je n'arrive pas à résoudre:

Erreur d'éxécution '1004' : erreur définie par l'application ou par l'objet

Cette erreur se situe au niveau de la ligne du code en gras et rouge


Sub Copie()

ChDir "Z:\"

Workbooks.Open Filename:= _

"Z:\LDP\Suivi qualité LDP\Impromptu\repporting_tbo_do_sud.xls"

ChDir "Z:\"

Workbooks.Open Filename:= _

"Z:\LDP\Suivi qualité LDP\TRADIQUAL.xls"

Windows("TRADIQUAL.xls").Activate

Dim C As Range, Plage As Range

With Workbooks("TRADIQUAL.xls").Sheets("Journalier")

Set Plage = [C7:EB12]

For Each C In Plage

If C.Value <> "" And .Range(C.Row, C.Column).HasFormula = False Then

.Range(C.Row, C.Column).Value = C.Value

End If

Next C

End With

End Sub

[Daniel.C]

Le problème vient de :

Code :

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

Set Plage = [C7:EB12]

Tel quel, C7:EB12 se réfère à la feuille active. Si le classeur soource est "repporting_tbo_do_sud.xls", il faut mettre :

préciser le nom du classseur et celui de la feuille; par exemple :

Code :

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

Set Plage = Workbooks("ClasseurA").Sheets("Feuil1").[C7:EB12]

[fabinouz]

Non, le fichier en question est le fichier "TRADIQUAL.xls" et la feuille et "Journalier".


Concrètement, ce code doit me permettre de copier/coller (valeur) toutes les cellules non vides sur les plages de données C7:EB12 et C37:EB42 dans la feuille "Journalier" du fichier "TRADIQUAL.xls"

Le fichier "repporting_tbo_do_sud.xls" est en fait un fichier issu d'un logiciel à partir duquel les données sont importées, je ne pense pas que la macro en question soit liée à ce fichier…


Sub Copie()

ChDir "Z:\"

Workbooks.Open Filename:= _

"Z:\LDP\Suivi qualité LDP\Impromptu\repporting_tbo_do_sud.xls"

ChDir "Z:\"

Workbooks.Open Filename:= _

"Z:\LDP\Suivi qualité LDP\TRADIQUAL.xls"

Windows("TRADIQUAL.xls").Activate

Dim C As Range, Plage As Range

With Workbooks("TRADIQUAL.xls").Sheets("Journalier")

Set Plage = [C7:EB12]

For Each C In Plage

If C.Value <> "" And .Range(C).HasFormula = False Then

.Range(C.Row, C.Column).Value = C.Value

End If

Next C

End With

End Sub

[fabinouz]

Merci pour ton aide !!!

[Daniel.C]

Mets (note le "." avant "[") :

Code :

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

Set Plage = .[C7:EB12]

[fabinouz]

Hélas ça n'arrange pas les choses... Ce qui est embêtant c'est que je n'arrive pas à interpréter les erreurs que me remonte la macro!

Avec ce code :

Sub Copie()
ChDir "Z:\"
Workbooks.Open Filename:= _
"Z:\LDP\Suivi qualité LDP\Impromptu\repporting_tbo_do_sud.xls"
ChDir "Z:\"
Workbooks.Open Filename:= _
"Z:\LDP\Suivi qualité LDP\TRADIQUAL.xls"
Windows("TRADIQUAL.xls").Activate
Dim C As Range, Plage As Range
With Workbooks("TRADIQUAL.xls").Sheets("Journalier")
Set Plage = .[C7:EB12]
For Each C In Plage
If C.Value <> "" And .Range(C.Row, C.Column).HasFormula = False Then
.Range(C.Row, C.Column).Value = C.Value

End If
Next C
End With
End Sub

La macro me remonte l'erreur sur la ligne en gras: Erreur d'éxécution '1004' : erreur définie par l'application ou par l'objet

En modifiant cette ligne "à ma sauce":

If C.Value Is Empty And C.HasFormula = False Then
.Range(C.Row, C.Column).Value = C.Value


Erreur d'éxécution '424': objet requis

Je ne sais pas si cela peut faire avancer le raisonnement...
En tout cas la macro ne me remonte pas d'erreurs en amont de cette ligne...

[Philippe Tulliez]

Bonjour;
L'erreur que tu as provient de l'objet Range qui n'est pas une bonne syntaxe. Il faut le remplacer par Cells

Code :

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

1
2
3
4
5
    For Each C In Plage
      If C.Value <> "" And .Cells(C.Row, C.Column).HasFormula = False Then
      .Cells(C.Row, C.Column).Value = C.Value
      End If
    Next C

Je n'ai pas vérifié si le reste fonctionne

[fabinouz]

C'est exactement ça!
Tout marche parfaitement bien!

Merci beaucoup de votre aide à tous les deux, vous êtes des champions!

Sujet résolu

[Philippe Tulliez]

Bonjour,
Je n'ai pas regardé toute la discussion mais il me semble que l'instruction

Code :

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

If C.Value <> "" And C.HasFormula = False Then

est plus courte et apporte le même résultat que

Code :

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

If C.Value <> "" And .Cells(C.row, C.Column).HasFormula = False Then

[fabinouz]

Tout à fait, cela fonctionne également et épure un peu plus le code!

Merci encore

[Philippe Tulliez]

Bonjour,
Et après réflexion, je ne comprends pas bien cette instruction qui si je la traduis.
Si la cellule n'est pas vide (C.Value <> "" ) et (And) que ce n'est pas une formule (C.HasFormula = False) alors (Then) la cellule est une valeur (.Cells(C.row, C.Column).Value = C.Value) que tu peux aussi réduire par C.Value = C.Value
et donc, je ne comprends pas parce-que si c'est une valeur, il n'y a pas de raison d'avoir cette instruction.
N'est-ce pas plutôt Si c'est une formule alors converti la par sa valeur ?
Soit

Code :

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

If C.HasFormula Then C.Value = C.Value

[fabinouz]

En réalité, j'ai modifié le "False" en "True".
En effet, le cheminement est:

"si la cellule n'est pas vide, et que c'est une formule, alors la cellule est une valeur"

Toutes mes cellules comportant des formules, le but est de fixer les cellules avec des valeurs afin de ne pas compromettre mes données à chaque actualisation

[Philippe Tulliez]

Bonsoir,
Donc cette ligne est suffisante

Code :

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

If C.HasFormula Then C.Value = C.Value

Inutile de tester si la cellule n'est pas vide, parce-que si elle contient une formule elle est forcément remplie et le TRUE est implicite dans If C.HasFormula Then

C'est la même chose avec les formules Excel

Code :

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

=SI(C2;"différent de 0";"valeur nulle")

donne le même résultat que

Code :

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

=SI(C2<>0;"différent de 0";"valeur null")

De même si on teste l'existence caractères

Code :

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

=SI(NBCAR(C2)<>0;"au moins un caractère";"cellule vide")

Donnera le même résultat que

Code :

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

=SI(NBCAR(C2);"au moins un caractère";"cellule vide")

[fabinouz]

J'ai tester ma macro avec la ligne:

If C.HasFormula Then C.Value = C.Value

Cependant, toutes mes cellules, mêmes "vides" (c'est à dire celles qui n'ont pas été mises à jour car la donnée recherchée est inexistante) ont été écrasées: les formules ont disparus et rien à la place...

[Philippe Tulliez]

Bonjour,
Voici un test rapide que j'ai effectué sur la plage A2:C4 de la feuille nommée Feuil1
Dans la colonne C, les lignes 2 et 4 avec comme formule =A2*B2 et la cellule C3 était vide

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
  Dim C As Range, Plage As Range
  With ThisWorkbook.Sheets("Feuil1")
    Set Plage = .[A2:C4]
    For Each C In Plage
      If C.HasFormula Then C.Value = C.Value
    Next C
  End With
End Sub

Après avoir fait tourner la procédure ci-dessus les cellules C2 et C4 avaient bien la valeur du résultat de la formule en lieu et place de celle-ci. La cellule C3 était toujours vide et la plage A2:B4 contenait bien les valeurs initiales.

[fabinouz]

J'ai essayé votre code dans un nouveau classeur. Mais dans ce cas là, la formule (A3*B3) dans la cellule C3 a disparu.

J'ai peut être oublié de spécifier mes formules de bases dans mes cellules:

=SI(C5=[repporting_tbo_do_sud.xls]Liste_1!$A$2;RECHERCHEV("JLRG";[repporting_tbo_do_sud.xls]Liste_1!$C$1:$BW$60;7;FAUX);"")

Ce qui signifie que je demande à ce qu'il n'y ai rien dans la case (au lieu de 0 ou #VAL) si la donnée est introuvable (exclusivement esthétique vis à vis du tableau).

De toutes façons, il me faut préserver les formules des cellules où les valeurs n'ont pas été trouvées afin qu'elles soient mises à jour ultérieurement.