Concaténation 2 cellule + texte

C

Catrice

XLDnaute Barbatruc

• 18 Mars 2009

• #2

Re : Concaténation 2 cellule + texte

Bonsoir,

For i = 2 To nblignes
Range("J1").Offset(i-1, 0).Value = Range("G" & i).Value & " Numéro " & Range("C" & i).Value
Next i

Tu peux aussi eviter le Select ...

Ceci devrait aussi fontionner :

Sub Test()
For Each X In Range("J2:" & Range("J65536").End(xlUp).Address)
X.Value = X.Offset(0, -3) & " Numéro " & X.Offset(0, -7)
Next
End Sub

 

Dernière édition: 18 Mars 2009

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 18 Mars 2009

• #3

Re : Concaténation 2 cellule + texte

bonjour,

à tester:

Code:

    Range("J2").Select
    
    For i = 2 To nblignes
    ActiveCell.Value = Range([B]"G" & i[/B]).Value & " Numéro " & Range([B]"C" & i[/B]).Value
    ActiveCell.Offset(1, 0).Select
    Next i

a+

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 18 Mars 2009

• #4

Re : Concaténation 2 cellule + texte

Bonjour,

En supposant que tu as défini la variable Numéro As String ...

Code:

ActiveCell.Value = Range("G" & i).Value & Numéro & Range("C" & i).Value

A +

Edit ; Si tu veux le mot Numéro lui-même ... alors "Numéro" ...

 

Dernière édition: 18 Mars 2009

Vote positif 0 Vote négatif

G

GCFRG

XLDnaute Occasionnel

• 18 Mars 2009

• #5

Re : Concaténation 2 cellule + texte

Salut à tous, pour le fun
en formule
=SI(ET(ESTNUM(G1);ESTNUM(C1));G1&" Numéro " &C1;"")
ou si G1 est du texte
=SI(ET(G1 <>"";ESTNUM(C1));G1&" Numéro " &C1;"")
a recopier vers le bas

en VBA
Sub Test()
With Sheets("Feuil1")
ActiveCell.FormulaLocal = "=SI(ET(G1 <>"""";ESTNUM(C1));G1&"" Numéro "" &C1;"""")"
End With
End Sub

GC

 

Dernière édition: 18 Mars 2009

Vote positif 0 Vote négatif

K

Ken Hutchinson

XLDnaute Occasionnel

• 23 Mars 2009

• #6

Re : Concaténation 2 cellule + texte

Merci à tous pour les réponses !! J'ai choisi la version de Catrice, de mromain et de james007 qui ont corrigé l'erreur que j'avais faite.

Eviter le select j'y pense tout le temps mais je ne maîtrise pas encore assez VBA pour cela.

Pour ce qui est de la formule GCFRG je n'ai pas du tout la maîtrise des formules... je trouve que ça fait mal à la tête !😛😱

Merci à tous pour votre aide.

 

Dernière édition: 23 Mars 2009

Vote positif 0 Vote négatif