DvDthèque - Déplacement de cellules [Excel-VBA]

Sheets("Feuil1").Select

Range("A42").Select

ActiveCell.FormulaR1C1 = "blablabla"

Columns("A:A").Select

Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

	OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Range("A42").Formula = "blablabla"

Selection.Sort Key1:=Range("A1")

Private Sub CommandButton1_Click()

	Dim X as String

	If TextBox1.Text = "" Then 

		' On sort parce que le nom du film n'est pas renseigné.

		' Mettre ici un bip, un message d'erreur ou autre

		Exit Sub

	End If

	' Prendre la première lettre à gauche 

	' et la mettre en majuscule. Mettre un Trim éventuellement

	X = UCase(Left(TextBox1.Text, 1))

	' Si la feuille des A s'appelle A c'est facile, 

	' sinon si c'est plus compliqué, utiliser des If ou des Case

	If X >= "A" And X <= "Z" Then Sheets(X).Select else Sheets("0-9").Select

	Range("A65536").Formula = TextBox1.Text

	Selection.Sort Key1:=Range("A1")

End Sub

Range("A1").Select

Selection.Copy

Range("G3").Select

ActiveSheet.Paste

' AVANT

If X >= "A" And X <= "Z" Then Sheets(X).Select Else Sheets("0-9").Select

Range("A5").Formula = TextBox1.Text

 
'APRES

If X >= "A" And X <= "Z" Then Sheets(X).Select Else Sheets("0-9").Select

ActiveSheet.Range("A5").Formula = TextBox1.Text

Sub Triagetot()

 
Dim nompage As Characters

 
For nompage = A To Z Step 1

 
     Sheets(nompage).Select

 
     '   ActiveSheet.Columns("A").Select

     '   Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _

     '   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _

     '   DataOption1:=xlSortNormal

 
Next nompage

End Sub

For nompage = "A" To "Z" Step 1

dim bidule as string

dim nompage as integer

for nompage = 0 to 25

bidule=chr$(asc("A")+nompage)

Private Sub cmd_Recherche_Click()

Dim lettre As String

Dim mot As String

        'If TextBox2.Text = "" Then

        '    Exit Sub

        'End If

        mot = TextBox2.Text

    lettre = UCase(Left(TextBox2.Text, 1))

        If lettre >= "A" And lettre <= "Z" Then Sheets(lettre).Select Else Sheets("0-9").Select

    'Appel Macro

    ActiveSheet.Select

    Recherche

Sub Recherche()

 
    Dim mot As String

    mot = Sheets("Traitement").TextBox2.Text

 
    If Cells.Find(What:=mot).Activate Then

    MsgBox ("Le film est présent")

    Else: MsgBox ("Le film n'existe pas")

    End If

 
End Sub

Dim r as Range

Set r = Cells.Find(What:=mot)

If r is Nothing Then

	MsgBox "Le film n'existe pas"

Else

	r.Activate	

	MsgBox ("Le film est présent")

End If

'for each xxxx in yyy

 
'next xxxx

Sub Triagetot() 

 
Dim Page As worksheet

 
For each Page in worksheets

 
     Page.Select 

 
     '   ActiveSheet.Columns("A").Select 

     '   Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ 

     '   OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ 

     '   DataOption1:=xlSortNormal 

 
Next Page

 
End Sub

if ((Page.name <> "SAV") AND (Page.name <> "traitement")...) then

 
endif