Discussion :

[seblafrite]

Bonsoir à tous,

Je fais appel à votre aide pour un problème que je rencontre :

J'ai un classeur excel comportant 2 colonnes :
-La colonne A est une colonne texte de 32 caractères
-La colonne B un numéro allant de 1 à 32

Ce que j'essaye de faire mais que je n'arrive pas, c'est d'avoir un nombre de caractères en colonne A égales au nombre indiqué en colonne B.

Exemple :

Cellue A1 : XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX
Cellule B1 : 28

Resultat après macro :
Cellule A1 : XXXXXXXX XXXXXXXX XXXXXXXX

Puis pareil pour A2,A3,...



J'ai trouvé des formules pour supprimer des caractères sur le tableur mais rien pour VBA

Je vous remercie d'avance pour votre aide

[78chris]

Bonjour

Principe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
For Each cellule In Range("A1:Ax")
    With cellule
        .Value = Left(.Value, .Offset(0, 1).Value)
    End With
Next

[anasecu]

Bonsoir à tous,

Exemple :

Cellue A1 : XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX
Cellule B1 : 28

Resultat après macro :
Cellule A1 : XXXXXXXX XXXXXXXX XXXXXXXX

Curieux le résultat car 3 paquets de 8 X pour moi, cela ne fait pas 28 caractères.

Si en A1 tu veux avoir le nombre de X défini en B1 tu mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 [A1].Value = String([B1].Value, Left([A1].Value, 1))

à toi d'implémenter en fonction de tes données.

[seblafrite]

Bonjour,

Merci à vous deux, ça marche parfaitement.

Je l'ai juste réadapter pour qu'il aille plus vite sur le traitement de la colonne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
For Each Cell In Range("M:M").Cells
If Cell.Value <> "" Then
    With Cell
        .Value = Left(.Value, .Offset(0, 4).Value)
    End With
End If
Next
End Sub

Bonne journée à vous

[MarcelG]

Salut,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For Each Cell In Range("M:M").Cells
If Cell.Value <> "" Then

Je ne suis pas d'accord sur la déclaration de la plage à tester.

[MarcelG]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
For Each Cell In Range("M:M").Cells

Mieux vaut à mon avis définir la dernière cellule informée que de balayer une colonne entière.
De plus, rattacher un objet Range à sa feuille Parent est une précaution utile pour éviter certaines erreurs.

(à adapter)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Explicit
 
Public Sub rp_chaine()
 
Dim derlign As Long
 
With Worksheets("lawks")
 
        derlign = .Cells(.Rows.Count, 1).End(xlUp).Row
        For Each c In .Range("A2:A" & derlign)
                With c
                        .Value = Left(.Value, .Offset(0, 4).Value)
                End With
        Next c
 
End With
 
End Sub