Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro pour enregistrer dans un tableau en choisissant ligne et colonne

vbamar

XLDnaute Nouveau
Bonjour,

je suis novice en VBA et j'ai déjà trouvé comment enregistrer des données dans une autre feuille dans la première cellule vide d'une colonne ou d'une ligne.
maintenant je voudrais pouvoir jouer sur les 2 (lignes et colonnes) pour placer des valeurs ou je veux dans un tableau.

voici comment j'envisage la saisie


la macro me reportera la valeur dans le tableau situé dans une autre feuille


merci
 

Pièces jointes

  • saisie-ligne.zip
    15.8 KB · Affichages: 36
  • img1.png
    12.4 KB · Affichages: 88
  • img1.png
    12.4 KB · Affichages: 84
  • img2.png
    9.1 KB · Affichages: 100
  • img2.png
    9.1 KB · Affichages: 101
Dernière édition:

vbamar

XLDnaute Nouveau
Re : macro pour enregistrer dans la ligne d'une entête

message modifié pour plus de clarté.
je souhaiterai que la macro soit compatible avec la version 2003
 
Dernière édition:

Modeste

XLDnaute Barbatruc
Re : macro pour enregistrer dans un tableau en choisissant ligne et colonne

Bonsoir vbamar,

Un peu "basique" comme proposition, mais comme je ne comprends pas bien les tenants et aboutissants, démarrons toujours avec ça:
VB:
Sub bout1()
Var = Range("B3")
ligne = Application.Match(Sheets("saisie").Range("A3"), Sheets("sauvegarde").Range("A1:A4"), 0)
Sheets("sauvegarde").Cells(ligne, Sheets("saisie").Range("E3") + 1) = Var
'Sheets("sauvegarde").Select 'si nécessaire ...
End Sub
 

vbamar

XLDnaute Nouveau
Re : macro pour enregistrer dans un tableau en choisissant ligne et colonne

Bonjour Modeste,

J'y étais arrivé en me compliquant la vie avec un barème et des variables et beaucoup plus de ligne de code.
en tout cas merci pour les fonctions match et cells qui font gagner du temps.

Pour fêter ça je vais ouvrir une Chimay ce soir! ;-)
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…