Qui peut me donner une explication en 2 ou 3 mots ? (Scripts)

Je connais maintenant , les bases d'excel et je pratique aussi les
fonctions et les affichages personnalisées et quelques petites astuces ..
MAIS
je n'ai toujours pas compris , en lisant les messages de ce forum, ce qu'il
y avait d'autres ?

J'ai entendu parler de script, de visual basic et de macros

Mais je les mets ou ces scripts ?
es ce du visual basic ?

a quel niveau les met on ? cellule ? ,feuille ? et comment ça marche Par
evenement ?

Donc je l'avoue ,je ne comprends rien

Si quelqu'un pouvait m'aider à m'en dire plus et je pense que je
comprendrais avec quelques exemples

S'il vous plait En quelques mots c'est quoi et on les mets ou ?

je suis pret a apprendre le visual basic (je connais que le cobol et le rpg
, le shell unix ) Mais là je ne comprends rien et surtout pourquoi ?

MErci
Et escusez mon ignorance

joel






Attribute VB_Name = "RechercheMotDansClasseur"

'Rechercher toutes les occurences d'un mot (par ex) au travers de TOUTES les
'feuilles d'un document Excel (4 solutions différentes)

Sub RechercheMot()
'mpfe, auteur inconnu
mot = InputBox("Mot à rechercher ?")
For feuille = 1 To Sheets.Count
Sheets(feuille).Select
Set trouvé1 = Cells.Find(What:=mot)
If Not trouvé1 Is Nothing Then
trouvé1.Activate
étiq:
If MsgBox("Suivant ?", 4) = vbNo Then Exit Sub
Set trouvé2 = Cells.FindNext(After:=ActiveCell)
If trouvé2.Column <> trouvé1.Column Or trouvé2.Row <>
trouvé1.Row Then
trouvé2.Activate
GoTo étiq
End If
End If
Next feuille
End Sub

'Ci-dessous un exemple qui cherche "a" dans toutes les feuilles du classeur.
'Retourne NomFeuille!Cellule si "a" est trouvé
'Retourne une chaine vide si "a" n'existe dans aucune feuille.
'A adpater a ton besoin. Iznogood, mpfe

Sub TestRecherche()
Dim MySheet
Dim MyCell
For Each MySheet In ThisWorkbook.Worksheets
Set MyCell = MySheet.Cells.Find _
(What:="a", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
_
MatchCase:=False)
If Not MyCell Is Nothing Then
MsgBox MySheet.Name & "!" & MyCell.Address
Exit For
End If
Next MySheet
End Sub

Sub WorkbookFind()
'Stéphane Royer, mpfe

What = InputBox("Rechercher :")
If What = "" Then Exit Sub
For Each sht In Worksheets
sht.Activate
Set Found = sht.Cells.Find(What)
If Not Found Is Nothing Then
FirstAddress = Found.Address
Do
Found.Activate
Response = MsgBox("Continuer ?", vbYesNo + vbQuestion)
If Response = vbNo Then Exit Sub
Set Found = Cells.FindNext(After:=ActiveCell)
If Found.Address = FirstAddress Then Exit Do
Loop
End If
Next sht
MsgBox "Recherche terminée !"
End Sub

'autre méthode (L Longre, mpfe), dans une feuille
'(facilement adaptable pour toutes les feuilles d'un classeur)
Sub ChercheZazaDésespérément()
Dim PremCell As String
Dim Cell As Range
Set Cell = Cells.Find("Zaza")
If Not Cell Is Nothing Then
PremCell = Cell.Address
Do
MsgBox Cell.Address
Set Cell = Cells.FindNext(Cell)
Loop Until Cell.Address = PremCell
End If
End Sub


Rollier-jo@noos.fr


--
Rollier-jo@noos.fr