[RESOLU] Remplacement de valeur dans un tableau

DoubleZero

XLDnaute Barbatruc

• 20 Janvier 2014

• #2

Re : Remplacement de valeur dans un tableau

Bonjour, Ternoise, le Forum,

Un essai en pièce jointe.

A bientôt 🙂

P. S. : Bonjour, Hasco 😀😀

 

Pièces jointes

• 00 - Ternoise - Transférer si.xls

  69.5 KB · Affichages: 43

Dernière édition: 20 Janvier 2014

Vote positif 0 Vote négatif

G

Guest

Guest

• 20 Janvier 2014

• #3

Re : Remplacement de valeur dans un tableau

Bonsoir,

Sans boucle mais ne fonctionnera que pour les valeurs Textuelles:

Code:

Sub Transfert()
    On Error GoTo FIN    'au cas où aucun texte dans les cellules
    With Range("$AA$12:$AN$41").SpecialCells(xlCellTypeConstants, xlTextValues)
        .Value = .Offset(, -24).Value
    End With
FIN:
End Sub

A+

++++ 00 😉😉😉 (message codé à destinataire masqué)

 

Dernière modification par un modérateur: 20 Janvier 2014

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 20 Janvier 2014

• #4

Re : Remplacement de valeur dans un tableau

Bonsoir et merci à vous deux. Nickel

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 20 Janvier 2014

• #5

Re : Remplacement de valeur dans un tableau

Re DoubleZero, le Forum

J'ai opter pour la procédure de DoubleZero qui me va parfaitement.
Est il possible de copier les couleurs des cellules concernées identique au tableau B ?
Merci de l'aide
David

Private Sub CmdTransfert_Click()
Dim c As Range
For Each c In [plage].Rows
If Not IsNumeric(c) Then c.Value = c.Offset(, 24).Value
Next
End Sub

Cliquez pour agrandir...

 

Pièces jointes

• Remplacement de données.xls

  47 KB · Affichages: 30

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 20 Janvier 2014

• #6

Re : Remplacement de valeur dans un tableau

salut

avec "Copy" (sans nom de plage)

Code:

Private Sub CmdTransfert_Click()
  Dim C As Range
  For Each C In [AA12:AN41]
    If Not IsNumeric(C) Then C.Copy C(1, -23)
  Next
End Sub

 

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 21 Janvier 2014

• #7

Re : Remplacement de valeur dans un tableau

Bonjour Si...
Merci de ton aide mais toutefois je n'arrive pas au résultat souhaité !

Il faut copier les cellules du tableau B pour remplacer seulement les cellules "R" du tableau A

En pièce jointe le modèle
Merci de l'aide
David

 

Pièces jointes

• Remplacement de données.xls

  46.5 KB · Affichages: 32

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 21 Janvier 2014

• #8

Re : Remplacement de valeur dans un tableau

salut

dans l'autre sens alors

Code:

Private Sub CmdTransfert_Click()
  Dim C As Range
  For Each C In [C12:P41]
    If Not IsNumeric(C) Then C(1, 25).Copy C
  Next
End Sub

 

Pièces jointes

• Remplacement de données-1.xls

  56.5 KB · Affichages: 32

Vote positif 0 Vote négatif

T

Ternoise

XLDnaute Occasionnel

• 21 Janvier 2014

• #9

Re : Remplacement de valeur dans un tableau

Haaa d'accord

J'avais tourné ça de tout les cotés sauf comme ça bien sûre !

Merci beaucoup

 

Vote positif 0 Vote négatif