comment on fait en vb excel Résolu/Fermé

Question

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?

guy2mars · Answer

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)

Comment on fait en vb excel

1 réponse