copier coller en VBA - limiter les cellules

job75

XLDnaute Barbatruc

• 23 Avril 2013

• #2

Re : copier coller en VBA - limiter les cellules

Bonjour bloublou,

Voyez cette macro dans le fichier joint :

Code:

Sub Résultat()
Dim colA, colC, i As Long, t As String
colA = Range("A2:A3", Range("A" & Rows.Count).End(xlUp)) 'au moins 2 éléments
colC = [C2].Resize(UBound(colA))
For i = 1 To UBound(colA)
  t = UCase(Left(colA(i, 1), 35)) 'majuscules
  colA(i, 1) = t & String(35 - Len(t), " ")
Next
'---restitution---
With Sheets("Résultat")
  .Range("A2:B" & .Rows.Count).ClearContents 'RAZ
  .[A2].Resize(UBound(colA)) = colA
  .[B2].Resize(UBound(colC)) = colC
  .Activate
End With
End Sub

Edit 1 : salut Robert

Edit 2 : le test If Len(t) < 35 était inutile.

A+

 

Pièces jointes

• alimentation(1).xls

  43.5 KB · Affichages: 24

Dernière édition: 24 Avril 2013

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 23 Avril 2013

• #3

Re : copier coller en VBA - limiter les cellules

Bonsoir Bloublou, Job, bonsoir le forum,

Arf... Grillé par Job ! Je propose même pas tellement son code est mieux...

 

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 24 Avril 2013

• #4

Re : copier coller en VBA - limiter les cellules

Bonjour le forum, Robert, job75,

Merci pour le code ca marche nickel

Juste une question pour cette ligne :

colC = [C2].Resize(UBound(colA))

Je ne comprends pas tout avec les mots clés Resize et UBound.

Merci en tout cas

BlouBlou

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Avril 2013

• #5

Re : copier coller en VBA - limiter les cellules

Bonjour bloublou, Robert,

ColA et ColC sont des matrices de valeurs.

La variable ColC ici n'est pas indispensable, je l'ai créée pour le cas où l'on voudrait modifier ou mettre en forme (majuscules) les valeurs de la colonne C.

Ubound(ColA) renvoie le nombre de valeurs *** de la matrice ColA.

[C2].Resize(UBound(colA)) définit la plage commençant en C2 et de hauteur UBound(ColA).

Edit : *** plus précisément l'index de la dernière valeur de ColA.

Tout ça est expliqué dans l'Aide VBA.

A+

 

Dernière édition: 24 Avril 2013

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 24 Avril 2013

• #6

Re : copier coller en VBA - limiter les cellules

Bonjour job75,

Merci de ton aide et des tes explications.

BlouBlou

 

Vote positif 0 Vote négatif