Programme sous Excel Aidez moi SVP
Fermé
Koshin
Messages postés
8
Date d'inscription
jeudi 26 août 2004
Statut
Membre
Dernière intervention
15 mars 2007
-
15 mars 2007 à 11:09
nick - 23 juin 2008 à 15:25
nick - 23 juin 2008 à 15:25
A voir également:
- Programme sous Excel Aidez moi SVP
- Liste déroulante excel - Guide
- Formule excel - Guide
- Programme demarrage windows 10 - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
3 réponses
my_name
Messages postés
18
Date d'inscription
samedi 24 février 2007
Statut
Membre
Dernière intervention
19 mai 2007
1
15 mars 2007 à 11:14
15 mars 2007 à 11:14
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...?
my_name
Messages postés
18
Date d'inscription
samedi 24 février 2007
Statut
Membre
Dernière intervention
19 mai 2007
1
18 mars 2007 à 13:22
18 mars 2007 à 13:22
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.
15 mars 2007 à 11:20
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