XL 2010 VBA Fonction avec des chaînes de caractères

[Zegma]

Bonsoir le forum.
Débutant en programmation, je souhaiterai faire apparaître dans des cellules le nom et le prénom d'individus.
(Les données "Prénom" se situent dans les cellules B3 jusqu'a B296 et les données "Nom" se situent dans les cellules A3 jusqu'a A296. Je souhaite faire apparaître la combinaison Prenom&Nom dans les cellules de la colonne d'à coté soit C3 jusqu'à C296)
Voici mon ébauche de macro.

Sub Individus()
Dim Prenom As String
Dim Nom As String
Prenom = "Range(B3, B296)"
Nom = "Range(A3, A296)"
Range(C3, C296).="Prenom&Nom"
End Sub

Un grand merci à celui qui m’éclairera.
Cordialement

 

[M12]

Bonjour
Teste comme ceci

Sub Individus()
  Dim i%, Dl%
  Dl = Range("A" & Rows.Count).End(xlUp).Row
  For i = 3 To Dl
    Cells(i, 3) = Cells(i, 2) & " " & Cells(i, 1)
  Next i
End Sub

 

[job75]

Bonjour Zegma, M12,

Oui ou aussi :

Sub Individus()
[C3:C296] = "=TRIM(B3&"" ""&A3)"
[C3:C296] = [C3:C296].Value
End Sub

plus rapide s'il y a beaucoup de lignes.

A+

 

[job75]

Re,

Chez moi sur 100 000 lignes il y a un rapport de 1 à 6 :

- post #2 => 3,2 secondes

- post #3 => 0,5 seconde.

A+

 

[M12]

Salut Job75

ET as-tu fais le test de C3 jusqu'à C296

 

[Modeste geedee]

Bonsour®

Bonsoir le forum.
Débutant en programmation, je souhaiterai faire apparaître dans des cellules le nom et le prénom d'individus.
(Les données "Prénom" se situent dans les cellules B3 jusqu'a B296 et les données "Nom" se situent dans les cellules A3 jusqu'a A296. Je souhaite faire apparaître la combinaison Prenom&Nom dans les cellules de la colonne d'à coté soit C3 jusqu'à C296)

Sub Zegmacro()
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=UPPER(RC[-1]) & "" "" &PROPER(RC[-2])"
    Selection.AutoFill Destination:=Range("C1:C296")   
End Sub

l'enregistreur de macro est un moyen aisé d'automatiser une opération que l'on fait manuellement

 

[Zegma]

Un grand merci à vous deux.
Cela fonctionne à merveille.