[RESOLU] Remplacement de valeur dans un tableau

[Ternoise]

Bonjour le Forum

J'aimerais remplacer certaines valeurs d'un tableau par les données d'un autre tableau en VBA.

Merci de toutes aides
David

 

[DoubleZero]

Re : Remplacement de valeur dans un tableau

Bonjour, Ternoise, le Forum,

Un essai en pièce jointe.

A bientôt 🙂

P. S. : Bonjour, Hasco 😀😀

 

[Guest]

Re : Remplacement de valeur dans un tableau

Bonsoir,

Sans boucle mais ne fonctionnera que pour les valeurs Textuelles:

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é)

 

[Ternoise]

Re : Remplacement de valeur dans un tableau

Bonsoir et merci à vous deux. Nickel

 

[Ternoise]

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

 

[Si...]

Re : Remplacement de valeur dans un tableau

salut

avec "Copy" (sans nom de plage)

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

 

[Ternoise]

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

 

[Si...]

Re : Remplacement de valeur dans un tableau

salut

dans l'autre sens alors

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

 

[Ternoise]

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