Copie de valeur a partir de coordonnées.

gorghrom · 29 Septembre 2011

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 · 29 Septembre 2011

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 · 29 Septembre 2011

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

Salut gorghrom, le Forum

Un essai avec ce code si j'ai bien compris

Code:

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 · 3 Octobre 2011

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.

Copie de valeur a partir de coordonnées.

gorghrom

XLDnaute Junior

Pièces jointes

Dranreb

XLDnaute Barbatruc

Dull

XLDnaute Barbatruc

Pièces jointes

gorghrom

XLDnaute Junior

Discussions similaires

Copie de valeur a partir de coordonnées.

gorghrom

XLDnaute Junior

Pièces jointes

Dranreb

XLDnaute Barbatruc

Dull

XLDnaute Barbatruc

Pièces jointes

gorghrom

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency