résultat d'un calcul dans une plage de cellule

[yaka]

version excel : 2000

Bonjour

En sortant d'un onglet je veux dans une plage de cellule située en colonne A de cet onglet avoir le résultat (value!) de la concaténation des colonnes B & C & D pour les lignes concernées.

J'ai donc fait (naïvement)

Private Sub Worksheet_Deactivate()
Range("A2:A1000").Value = Range("b2:b1000").Value & Range("c2:c1000").Value & Range("d2:d1000").Value
End Sub

j'ai en réponse une erreur d'execution de type 13 'incompatibilité de type'...

merci pour votre aide

 

[Luki]

Re : résultat d'un calcul dans une plage de cellule

Bonjour,

Essaie, s'il s'agit de concaténer du texte, de remplacer .Value par .Text

A te lire

 

[Luki]

Re : résultat d'un calcul dans une plage de cellule

re,

plus fiable avec une boucle :

Dim i As Long
    For i = 2 To 1000
        Range("A" & i) = Range("B" & i).Text & Range("C" & i).Text & Range("D" & i).Text
    Next i
End Sub

A te lire

 

[yaka]

Re : résultat d'un calcul dans une plage de cellule

je remplace .value par .text

à présent j'ai une erreur d'éxécution '424', objet requis

?

 

[Luki]

Re : résultat d'un calcul dans une plage de cellule

Re,

Fais avec la boucle....et dis nous

 

[yaka]

Re : résultat d'un calcul dans une plage de cellule

A priori avec la boucle ça va marcher (je l'ai déjà fait sur d'autre feuille) ... mais... dans mon cas il n'y a pas en fait 1000 lignes à considérer mais 20000 .... ça prend un "chouya" plus de temps... alors j'imaginai qu'il y avait plus rapide...

 

[Luki]

Re : résultat d'un calcul dans une plage de cellule

Re,

As-tu intégré un Application.ScreenUpdating=False en début de procédure, et le basculer à False à la fin?

A combien se monte ton chouya au cours du jour?

A+

 

[Luki]

Re : résultat d'un calcul dans une plage de cellule

Re,

En utilisant une formule et recopie des valeurs

Sub test2()
    With Range("A2:A20000")
        .FormulaR1C1 = "=RC[1]&RC[2]&RC[3]"
        .Copy
    End With
    Range("A2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Plus rapide que la boucle, chez moi le chouya tournait vers les 5 secondes..

Dis nous..