Comment on fait en vb excel
Résolu
Bonjour,
j'ai 2 problèmes avec VBA, notamment VB Excel:
1) Dans ma feulle excel, j'ai une colone "nom" (dans la colonne A) et à coté "num" (dans la colonne B), je voudrais mettre un numéro à coté de cahque nom pas avec incrementation automatique masi, d'une façon :
Tant qu'il ya un nom dans la colone nom (c'est à dire que la cellule Aj) est <>"" fait
colonne Bj=j
j=j+1
Fin tan que
2) je cherche une cellule qui contient un mot ("total" par exemple) et comment on supprime la ligne correspondente à cette cellule?
j'ai 2 problèmes avec VBA, notamment VB Excel:
1) Dans ma feulle excel, j'ai une colone "nom" (dans la colonne A) et à coté "num" (dans la colonne B), je voudrais mettre un numéro à coté de cahque nom pas avec incrementation automatique masi, d'une façon :
Tant qu'il ya un nom dans la colone nom (c'est à dire que la cellule Aj) est <>"" fait
colonne Bj=j
j=j+1
Fin tan que
2) je cherche une cellule qui contient un mot ("total" par exemple) et comment on supprime la ligne correspondente à cette cellule?
Configuration: Windows XP Internet Explorer 6.0
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)
