Opérations sur champs Requete ACCESS - Page 5

ok a tte, bon ap' !!

t tjs la gaetan ?!

ok kool

Sub Transforme_TABLE_de_Base_extraite_SAP_OUTILS_GARANTIE()
Dim i As Integer
Dim DerniereColonne As Integer
DerniereColonne = Range("BZ2").End(xlToLeft).Column
For i = 1 To DerniereColonne
Cells(2, i).Select
If ActiveCell.Value = "" Then
Columns(i).Select
DerniereColonneEnCours = Range("BZ2").End(xlToLeft).Column
If i >= DerniereColonneEnCours Then Exit Sub
Selection.Delete Shift:=xlToLeft
i = i - 1
End If
Next i
Columns("D:D").Select
Selection.Delete Shift:=xlToLeft
Columns("F:G").Select
Selection.Delete Shift:=xlToLeft
Columns("O:Q").Select
Selection.Delete Shift:=xlToLeft
Columns("S:W").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("B:B").Select
Selection.Replace What:="C", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("B2").Select
ActiveCell.FormulaR1C1 = "Conession"
Range("B2").Select
ActiveCell.FormulaR1C1 = "Concession"
Columns("B:B").Select
Selection.NumberFormat = "@"
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
Columns("P:R").Select
Selection.NumberFormat = "#,##0.00"
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("A1").Select
End Sub

Salut gaetan !

D'attaque pour que le mot de passe apparaisse en *** en nom en directement visibel ?!

Tiens au courant quand t'es ok !!

Salut, pas de souci pour tout à l'heure!

Pour ton post je viens d'y jeter un oeil par hasard! mais a vrai dire je ne peux t'être d'une grande aide, car je ne maitrise pas trop les graphs sous Excel (trés peu utilisé!)

Désolé de pas pouvoir t'aider aprés tout ce que t'as fais pour moi ^^

@ tte, bon ap' !

perso je suis prêt ...

Yeah gaetan juste un truc en plus pour ne pas que tu t'embets trop:

j'aimerais qu'au bout de 3 tentaives la bdd se ferme avec un mess d'erreur préventif:

i = i + 1
End If
'Dépassement du nombre d'essais autorisés 3
If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés...Réessayez plus tard ! ", vbCritical
DoCmd.Quit
End If

End Sub

avec un truc comme ca on peut faire ou non?!

Yep gaetan hello!

i've got 2 questions for you: easy but i'ven't the solution!

ok j'arrive dsl j 'été en train de faire autre chose!

gaetan concernant les macros excel j'ai une question! (pas de prog tkt pas juste un petit truc sur le stockage..)
Je sss sur meebo donc dispo qd tu veux!

des moi je vais etre indispo environ 30min a 1h je te tiens au courant qd je peux!!
a tte ;-)

Salut gaetan comment va?!

J'aurais une chtite question, pas de programmation tkt, serais tu dispo sur meebo aprés manger?!

Merci et a tte!!

C'est bon j'y suis

gaetan t toujours la?!

Si tu n'y est pas on se voit demain mation sur meebo ok?

merci!

hello!

je suis la si t'es ok!

je suis OP gaetan c'est qd tu veux!