Copie de valeur a partir de coordonnées.

[gorghrom]

Bonjour,

Je cherche à réaliser une macro me permettant de copier d'une feuille 1 à une feuille 2 contenant un tableau, des valeurs caractérisées par des coordonnées précises.

Avec en bonus, la possibilité de cocher une option qui me permette d'additionner les valeurs si elle ont les mêmes coordonnées. (si option décochée => La valeur est ecrasée).

Si je n'ai pas été clair, voici un fichier.

Merci pour votre aide

 

[Dranreb]

Re : Copie de valeur a partir de coordonnées.

Répondez à ma proposition au lieu de reposer le problème dans une nouvelle discussion

 

[Dull]

Re : Copie de valeur a partir de coordonnées.

Salut gorghrom, le Forum

Un essai avec ce code si j'ai bien compris

Option Explicit

Private Sub CommandButton1_Click()
Dim X As Range, C As Range

Set C = Sheets("Tableau").Columns(2).Find(What:=[C8])
Set X = [C6]
If Not C Is Nothing And [C12] = True Then
C.Offset(, X) = C.Offset(, X) + [C10].Value
    Else
C.Offset(, X) = [C10].Value
End If
End Sub

EDIT: Salut Dranreb ...PastoutsuiviMoi...
Bonne Journée

 

[gorghrom]

Re : Copie de valeur a partir de coordonnées.

Bonjour,

Merci à Dull pour ton aide

Dranreb, je n'ai pas tout suivi non plus, j'ai effectivement créer une première discussion avec la même problématique, mais n'e l'ayant plus retrouvé j'en ai créer une seconde.