Discussion :

[faustina]

Bonjour,

J'ai besoin de votre aide. Je fais un tableau d'avancement. Je souhaite ajouter sur mon tableur un bouton "actualiser" qui copie coller la valeur d'une cellule (soit le taux d'avancement qui évoluera chaque jour en fonction des taches réalisés) dans un tableau me permettant de dessiner une courbe d'avancement.
La cellule source est une formule qui calcul ce taux donc je souhaite en copier que la valeur, via l'enregistrement macro: j'ai un code du type:

Range("F35").Select

Selection.Copy

Range("E62").Select

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Copier coller uniquement la valeur de la cellule c'est facile. La problématique est que la macro doit à chaque "click s'incrementer et séléctionner une cellule de ligne n+1.

Est ce que cela est possible?
Merci pour votre aide!
Pamela

[MarcelG]

Bonjour Faustina et bienvenu sur ce forum,

Grrrrrrr!!
- Ces f.. Select qui n'apportent rien
- Balises de code pour reporter ta procédure

Il te faut définir la dernière cellule de ta colonne et y adjoindre ta valeur.

Exemple

(J'ai volontairement changé les adresses)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub essai_faustina()
 
Dim dern_range As Range
 
With Worksheets("Données")
      Set dern_range = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
      dern_range.Value = .Range("A1").Value
      Set dern_range = Nothing
End With
 
End Sub

Reprends ces quelques lignes et reviens si nécessaire.

[Menhir]

En supposant que la zone à copier est F35:F45 :

Code :

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

1
2
Range("F35:F45").Copy
Range("E62").PasteSpecial Paste:=xlPasteValues

PS : même remarque que MarcelG concernant ces p***ns de Select.

[faustina]

En fait je pense que mon projet est beaucoup plus complexe, enfin trop à mon niveau

pour mieux m'expliquer je vous joint un fichier Test collage(uniquement valeur) si condition respectée.xlsx.
Il s'agit de coller si la condition est respectée . C'est presque une recherche vertical finalement, je vous explique:

L'idée est de dessiner une courbe dans un graphique.
pour ce graphique j'ai une colonne pré-remplie avec des dates Da et une colonne taux (c'est celle -ci que je souhaite mettre à jour via VB)

j'ai une cellule date Da =aujourd'hui() et une cellule taux Td(qui se met à jour automatique en fonction des champs renseignés)

A l'ouverture du fichier la date change et le taux varie (ou pas d'ailleurs)
a ce moment la j'aimerai créer une fonction actualiser qui viens prendre la valeur Td et la positionner a coté de la cellule date correspondante telque D=Da

Sauf si c'est possible sans VB mais faire une recherche V sur une cellule fixe (et contenant une formule), je connais pas.
Help s'est un vrai casse tête pour moi

[MarcelG]

Bonjour Faustine,

Tu adaptes.

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
Option Explicit
 
Public Sub maj_taux()
 
Dim lacells As Range
 
With Worksheets("Feuil1")
      Set lacells = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
      With lacells
            .Value = Format(Date, "dd/mm/yy")
            .Offset(0, 1).Value = Worksheets("Feuil1").[E3]
      End With
      Set lacells = Nothing
End With
 
End Sub

[faustina]

Bonjour Marcel et merci pour ton aide. J'ai réussis à adapter ton code à mon tableau initial.
Je suis de l'ancienne école, j'utilisait la fonction copy, la j'ai du mal à comprendre, mais je devine que Set .. et With .. qui fait la fonction copier coller? Set: la position et with la valeur. Tu confirmes? aussi, à aucun moment tu précises coller la valeur et le format de la cellule et cela fonctionne. pareil c'est la fonction Off.set .. .value= qui le dit?

Par contre,
BUG sur le cellule date; commentaire "cette cellule contient une date dont l'année contient uniquement 2 chiffres." Je comprend pas bien car si je change "Value = Format(Date, "dd/mm/yy")" par Value = Format(Date, "dd/mm/yyyy") l'erreur est la même:
J'ai bien la date "d'aujourd'hui" qui s'affiche mais sur le graphique, elle n'est pas reconnu et est par défaut 00/01/00

[faustina]

Petite précision, si je corrige l'erreur manuellement il me propose: convertir en XX/19XX ou XX/20XX. En choisissant bien évidement 20XX. la valeur est bien prise en compte sur mon graph. Je comprend pas vu que la formule
=Format(Date, "dd/mm/yy") semble aller cherche la date d'aujourd'hui est donc Excel devrait savoir qu'on est en 2018!