Discussion :

[forestlaw]

Bonjour,

Je suis tout nouveau sur la programmation VBA, et j'ai un fichier Excel nécessitant l'opération suivante:
Je souhaite pouvoir mettre à jour des valeurs (avec un bouton) dans un tableau Excel à partir d'autres valeurs remplis sur une ligne
Dans mon exemple, je souhaite pouvoir mettre à jour la ligne 6 avec les valeurs de la ligne 2, par recherche du Numéro de doument correspondant (ici 002 dans la cellule B2), et ainsi de suite.
Si par exemple je sélectionne le numéro de document 001 dans la cellule B2, alors je souhaiterais mettre à jour la ligne 5.

Si vous pouviez m'aider ça serait super!

Merci,

[McLister213]

Bonjour,

Si c'est juste pour actualiser les valeurs alors applique ça sur ton bouton :

Code :

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

1
2
3
4
5
Private Sub CommandButton1_Click()
 
ActiveSheet.Calculate
 
End Sub

ou alors plutôt que de mettre un bouton, met ça sur la feuille. Cela permettra de l'actualiser dès son affichage

Code :

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

1
2
3
4
5
Private Sub Worksheet_activate()
 
ActiveWorkbook.RefreshAll
 
End Sub

[jerome.vaussenat]

Salut,

Une première remarque sur le fichier joint. Les pièces jointes avec l'extention Xlsm, elles n'ont pas la cote. Il peut y avoir du code malvaillant ...

Dans ton cas, il n'y a pas de code mais, bon. En plus, c'est dans les règles du forum.

Ensuite, sur ta méthode de mettre à jour ton fichier, il me semble qu'à un moment tu vas avoir un problème :
Au début, tu saisis (ou choisis avec la liste déroulante) le N° de doc dans la cellule B2. Là c'est bon.
A partir de là, tu as des formules RECHERCHEV qui vont chercher les données. Là aussi, pour le moment c'est bon.
Tu veux pouvoir saisir des modifications. Pourquoi pas. Et c'est le code pour mettre à jour le tableau en bas qui te manque.

Mais après, dans les cellules de la ligne 2, elles sont où les RECHERCHEV. Tu as saisis et les formules, elles sont ...
Donc pour la prochaine saisie dans la cellule B2, tout ne se mettra pas à jour !

Je te laisse voir et me dire si je me plante ...

[forestlaw]

Bonjour Jérome,

Merci pour ta réponse rapide. Je ferais effectivement bien attention la prochaine fois à ne pas mettre de fichier xlsm!

Pour répondre à ta question:

Mais après, dans les cellules de la ligne 2, elles sont où les RECHERCHEV. Tu as saisis et les formules, elles sont ...
Donc pour la prochaine saisie dans la cellule B2, tout ne se mettra pas à jour !

Les cellules C2, D2 et H2 me servent à rentrer une nouvelle version, date et auteur d'un document existant dans le tableau commencant à la ligne 5.
Et c'est donc ces valeurs qui seront mis à jour dans le tableau après avoir appuyé sur le bouton, les valeurs E2, F2 et G2 ne seront quand à elle pas modifié.

Merci d'avance pour ton retour,

[Qwazerty]

Salut

J'ai fait quelques modifications et compléter le code.
Pour respecter les règles, je met le fichier au format xlsx, il te suffira de rajouter le code du bouton au bon endroit et d'enregistrer au format xlsm.

A savoir

1. J'ai déclaré un tableau (Onglet Insertion tableau)
2. Nommé la plage de cellules contenant les n° de document (onglet "Données", Gestionnaire de noms)
3. Et le code suivant dans la bouton

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
Private Sub CommandButton1_Click()
Dim CellFind As Range
 
'On recherche la ligne correspondante au numéro de document
'Je ne précise pas le nom de la feuille,
'c'est obligatoirement l'onglet actif puisque l'utilisateur appuie sur un bouton
Set CellFind = Range("tab_doc[No. Doc]").Find(Range("B2").Value, , xlValues, xlWhole)
 
'On copie les valeurs de la ligne 2 vers la ligne correspondante
CellFind.Resize(, 7).Value = Range("B2:H2").Value
 
'On vide la ligne2
Range("B2:H2").ClearContents
 
End Sub

++
Qwaz