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

M12

XLDnaute Accro

• 31 Octobre 2017

• #2

Bonjour
Teste comme ceci

Code:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2017

• #3

Bonjour Zegma, M12,

Oui ou aussi :

Code:

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

plus rapide s'il y a beaucoup de lignes.

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 31 Octobre 2017

• #4

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+

 

Vote positif 0 Vote négatif

M12

XLDnaute Accro

• 31 Octobre 2017

• #5

Salut Job75

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 31 Octobre 2017

• #6

Bonsour®

Zegma à dit:

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)

Cliquez pour agrandir...

VB:

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

 

Vote positif 0 Vote négatif

Z

Zegma

XLDnaute Nouveau

• 31 Octobre 2017

• #7

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

 

Vote positif 0 Vote négatif