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

Macro d'envois d'une valeur dans une case d'un tableau

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Moi_slash

XLDnaute Nouveau
Bonjour à tous
Alors j’ai un petit problème de « programmation »
Dans le cadre de mon boulot je fais beaucoup de déplacement de chantier à chantier et tous les mois je dois faire une feuille de frais précisant le nombre de km réalisé
Chaque jour je passe sur 5 ou 6 chantiers différents

Pour simplifier mes calculs j’ai créé une petite feuille de calcul gardant en mémoire les déplacements déjà fait
Pour les déplacements n’étant pas déjà dans la feuille de calcul j’ai créé un lien permettant, via google maps, de trouver le kilométrage entre chantier.

Maintenant je cherche à sauvegarder la distance obtenu sur google maps
Cette valeur est renseignée manuellement dans la feuille « calcul » en H5
En cliquant sur le « bouton 1 » j’aimerai (via macro) envoyer la valeur indiqué de la case H5 au croisement de la ligne 3 et de la colonne 4 ainsi qu’au croisement de la ligne 4 et de la colonne 3 de la feuille « Distance » (case en rouge)

J’ai essayé avec une petite macro utilisant CELLS() mais ca ne marche pas
Je n’arrive pas à utiliser des valeurs prise dans des cases (ex : cells( F4 , F6)=H5)

Voila en espérant être clair
Je joins le fichier permettant de comprendre plus facilement ;-)

Si vous avez des idées ou questions n’hésitez pas
Merci
V.

PS : je sais qu’il n’y à pas du tout de macro dans mon fichier mais j’ai préféré ne rien mettre vu que ca ne marchais pas du tout
PS2 : je tiens juste à préciser que le vrai fichier à 82 chantiers différents. D’où la nécessité de simplifier le truc
 

Pièces jointes

Trier par date Trier par votes
Re : Macro d'envois d'une valeur dans une case d'un tableau

Bonjour le fil, Moi slash

Les deux exemples suivants placent le contenu de la cellule [H5] de la feuille active, dans la cellule [C4] de l'onglet "Distance"
Code: 
Sheet("Distance").Cells(3, 4) = Range("H5")
Code: 
Feuil2.[C4] = [H5]
A plus
 
Vote positif 0 Vote négatif
Re : Macro d'envois d'une valeur dans une case d'un tableau

Bonsoir,

Pour automatiser l'envoi de la valeur d'une cellule de la colonne H dans le tableau du 2e onglet suivant les coordonnées définies colonne F, j'arrive à une solution beaucoup plus compliquée. As-tu fidèlement reproduit (en version abrégée) le tableau que tu utilises? Le problème est qu'avec les multiples fusions de cellules décalées, je crois qu'Excel y perd ses index... Quand on navigue entre les colonnes F et H, un coup on arrive au-dessus, un coup en dessous 😕
J'ai fait une macro avec des conditions qui prend en compte, je pense, tous les cas de figures appliqués à ton tableau. Je l'ai affectée au bouton. Quand je me mets sur le cellule à copier et que je clique sur le bouton, ça me copie les bonnes valeurs et ma cellule active est la même qu'au départ.

Sub copie_distance()
Dim coord1 As Integer
Dim coord2 As Integer
Dim distance As Integer
Dim y As Long
y = ActiveCell.Row
distance = ActiveCell.Value
ActiveCell.Offset(0, -2).Select
If ActiveCell.Row < y Then
coord1 = ActiveCell.Value
coord2 = ActiveCell.Offset(1, 0).Value
Else
coord2 = ActiveCell.Value
coord1 = ActiveCell.Offset(-1, 0).Value
End If
ActiveCell.Offset(0, 2).Select
If ActiveCell.Row < y Then
ActiveCell.Offset(1, 0).Select
Else
If ActiveCell.Row > y Then
ActiveCell.Offset(-1, 0).Select
End If
End If
Sheets("Distance").Range("D3").Offset(coord1 - 1, coord2 - 1) = distance
Sheets("Distance").Range("D3").Offset(coord2 - 1, coord1 - 1) = distance
End Sub
 
Vote positif 0 Vote négatif
Re : Macro d'envois d'une valeur dans une case d'un tableau

soenda : merci pour les formules mais je n'arrive pas à mettre des variables dans la formule cells.

pierrexld : bravo ca marche trés bien. Il est vrai que j'ai des cellules fusionné mais c'était juste pour le fichier que j'ai envoyé 🙂. Pour simplifier la comprehansion. J'ai modifié un peu la macro pour mon fichier complet
Merci à toi
V.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
XL 2021 Ajustement automatique d'une référence cellule dans une macro ?
Réponses
2
Affichages
289
Alamyr
A
M
  • Résolu(e)
XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé
Réponses
5
Affichages
231
patricktoulon
N
  • Question Question
XL 2019 Aide pour optimiser mon tableau Excel de suivi d'activité
Réponses
6
Affichages
588
Nicolaasss
N
  • Résolu(e)
Microsoft 365 comment "ralentir" une macro
Réponses
9
Affichages
490
Eric 888
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
435
ManuEven
M
C
  • Question Question
XL 2016 Automatiser et synthétiser les informations d'un tableau Excel d'un onglet 1 vers des onglets 2 et 3
Réponses
14
Affichages
486
chris63
C
F
  • Question Question
Autres Récupération de données d'une feuille X en fonction de la valeur de cellule dans une collone d'une feuille Y
2
Réponses
27
Affichages
1 K
fanfan38
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
1 K
Xender
X
O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
1 K
Olihoes
O
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
388
fanch55
C
  • Question Question
Microsoft 365 je cherche un code excel pour copier la couleur d'une cellule, à toutes les cellules qui ont la même valeur dans mon tableau.
Réponses
1
Affichages
393
sylvanu
A
  • Résolu(e)
XL 2016 Passer d'une MFC à une macro pour supprimer le bazar dans les règles.
2 3
Réponses
42
Affichages
2 K
TooFatBoy
N
  • Résolu(e)
Microsoft 365 Supprimer de la liste d'une Combo les données déjà présentes dans une colonne d'un TS
2
Réponses
18
Affichages
911
NONO14
N
T
  • Question Question
XL 2016 macro pour vider le contenu d'un tableau synthese ( avant d’actualiser par les nouvelles données )
Réponses
7
Affichages
410
TooFatBoy
P
  • Résolu(e)
XL 2019 Tri sur une ligne dans un tableau.
Réponses
4
Affichages
264
Paulle
P
I
  • Résolu(e)
Microsoft 365 Exécuter une macro en fonction de la valeur d'une cellule
Réponses
12
Affichages
770
iliess
I
R
  • Question Question
Microsoft 365 Rechercher le titre d'un tableau à partir d'une valeur non nulle d'une ligne
Réponses
8
Affichages
571
R@chid
C
  • Question Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
516
chris63
C
A
  • Question Question
XL 2021 Afficher la valeur Min d'un tableau structuré avec une macro
Réponses
10
Affichages
712
klin89
Z
  • Résolu(e)
Microsoft 365 (résolu) Position d'une valeur max dans un tableau avec ex-aequo
2
Réponses
15
Affichages
775
crocrocro
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…