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