Programme sous Excel Aidez moi SVP
Koshin
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
nick -
nick -
Bonjour,
Voila j'essaye via un programme rechercher dans la colonne A toutes les cellules comportant la valeur "Grand Total", et de couper respectivement chacunes de ces celules pour les coller dans la colonnes B sur leur lignes respectives.
Voila j'essaye via un programme rechercher dans la colonne A toutes les cellules comportant la valeur "Grand Total", et de couper respectivement chacunes de ces celules pour les coller dans la colonnes B sur leur lignes respectives.
A voir également:
- Programme sous Excel Aidez moi SVP
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Programme demarrage windows - Guide
3 réponses
salut, je pense pouvoir t'aider.
est ce que tu sais faire des boucles, test conditionnel, enregistrer des macro...?
est ce que tu sais faire des boucles, test conditionnel, enregistrer des macro...?
salut,
il faut d'abord que tu fasse une boucle : tant que (while, wend), les boucles permettent de répéter une action autant de fois qu'une condition de sortie n'est pas respecter. dans ton exemple, la boucle va passer en revu toutes les cellules de ta collone A.
la sintaxe est :
while (condition)
test 1
test2
wend
dans ton exemple, la condition serai :
tant que cellule("a"&i) <> ""
en langage vba sa donne :
while range("a"&i) <> ""
test 1
i = i +1
wend
les tests permettent de travailler à l'intérieur des boucles.
la synthaxe est :
si (condition) alors
...
fin si
en language vba :
if (condition) then
...
endif
essais de te familiariser avec les boucles et les tests conditionnels.
il faut d'abord que tu fasse une boucle : tant que (while, wend), les boucles permettent de répéter une action autant de fois qu'une condition de sortie n'est pas respecter. dans ton exemple, la boucle va passer en revu toutes les cellules de ta collone A.
la sintaxe est :
while (condition)
test 1
test2
wend
dans ton exemple, la condition serai :
tant que cellule("a"&i) <> ""
en langage vba sa donne :
while range("a"&i) <> ""
test 1
i = i +1
wend
les tests permettent de travailler à l'intérieur des boucles.
la synthaxe est :
si (condition) alors
...
fin si
en language vba :
if (condition) then
...
endif
essais de te familiariser avec les boucles et les tests conditionnels.
En fait je débute en prog alors je suis vraiment pas doué j'ai essayé ceci mais ca marche pas ca bloque au moment ou le cut et paste dans B devrait se faire. Est ce que tu sais ce qui cloche dans mon programme s'il te plait? Merci ^_^
(PS: J'avais par erreur posté en double mon message celui est incomplet, en voici l'integralité en dessous)
---------------------------------------------------------------------------
Bonjour,
J'essaye via un programme de rechercher dans la Colonne A de mon document toutes les cellules ayant pour valeur "Grand Total" puis de couper respectivement le contenu de celle ci pour qu'elle soient collés dans la Colonne B sur leurs lignes respectives..
J'ai essayé sans succès le programme suivant, quelqu'un pourrait t'il m'aider s'il vous plait?
Merci par avance pour vos conseils et votre aide :
Sub GrandTotalaDroite()
'
Dim FirstAddress As String
Dim MySearch As Variant
Dim myColor As Variant
Dim FontColor As Variant
Dim FontBold As Variant
Dim Cut As Variant
Dim Move As Variant
Dim Paste As Variant
Dim rng As Range
Dim i As Long
MySearch = Array("GRAND TOTAL")
myColor = Array("15")
FontColor = Array("0")
FontBold = Array("True")
Move = Array("Offset (o, 1).select")
Cut = Array("Selection.Cut")
Paste = Array("Selection.Paste")
With Sheets("Sheet1").Range("A1:A2000")
.Interior.ColorIndex = xlColorIndexNone
For i = LBound(MySearch) To UBound(MySearch)
Set rng = .Find(What:=MySearch(i), _
After:=.Cells(.Cells.Count), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not rng Is Nothing Then
FirstAddress = rng.Address
Do
rng.Interior.ColorIndex = myColor(i)
rng.Font.ColorIndex = FontColor(i)
rng.Font.Bold = FontBold(i)
rng.Cells.Activate = Cut(i)
rng.Cells.Activate = Move(i)
rng.Cells.Activate = Paste(i)
Set rng = .FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> FirstAddress
End If
Next i
End With
End Sub