Comment on fait en vb excel
Résolu
frk206
Messages postés
29
Date d'inscription
Statut
Membre
Dernière intervention
-
frk206 Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
frk206 Messages postés 29 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Comment on fait en vb excel
- Liste déroulante excel - Guide
- Mise en forme conditionnelle excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
1 réponse
salut
qq questions : y a t il des cellules vides dans A?
si oui, quelle est la colonne qui garantit la fin de fichier?
si A est toujours rempli tu peux imaginer un truc style
Sub Macro1()
Dim i As Integer, str1 As String, str2 As String
i = 1
Do While Range("A" & i).Value <> ""
str1 = Range("A" & i).Value
str2 = Range("B" & i).Value
Range("A" & i).Value = str1 + Str
i = i + 1
Loop
End Sub
sinon il faudra amenager ;o))
quant a ton remplacemlent de total
cette methode est valable pour la colonne A
pour passer a la B, il te faut travavailler sur la valeur ascii de A pour passer a B
Worksheets("Sheet1").Columns("A").Replace _
What:="total", Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=True
bon courage
;o)
qq questions : y a t il des cellules vides dans A?
si oui, quelle est la colonne qui garantit la fin de fichier?
si A est toujours rempli tu peux imaginer un truc style
Sub Macro1()
Dim i As Integer, str1 As String, str2 As String
i = 1
Do While Range("A" & i).Value <> ""
str1 = Range("A" & i).Value
str2 = Range("B" & i).Value
Range("A" & i).Value = str1 + Str
i = i + 1
Loop
End Sub
sinon il faudra amenager ;o))
quant a ton remplacemlent de total
cette methode est valable pour la colonne A
pour passer a la B, il te faut travavailler sur la valeur ascii de A pour passer a B
Worksheets("Sheet1").Columns("A").Replace _
What:="total", Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=True
bon courage
;o)
c'est comme ça qu'on s'ensortira ensemble!, Je vous remercie bcp