Opérations sur champs Requete ACCESS - Page 5

Précédent
  • 1
  • 2
  • 3
  • 4
  • 5
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
ok a tte, bon ap' !!
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
t tjs la gaetan ?!
0
cameleon33 Messages postés 635 Statut Membre 50
 
Ouaip, j'arrive sur meebo
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
ok kool
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
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
0
cameleon33 Messages postés 635 Statut Membre 50
 
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
Goto Suite:
End If
Selection.Delete Shift:=xlToLeft
i = i - 1
End If
Next i
Suite :
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
Salut gaetan !

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

Tiens au courant quand t'es ok !!
0
cameleon33 Messages postés 635 Statut Membre 50
 
Ouaip, on voit ça à 14h comme hier?

Au passage, si tu peux m'aider ici ^^

http://www.commentcamarche.net/forum/affich 8001906 vba excel mise en forme graphique
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
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' !
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
perso je suis prêt ...
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
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?!
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
Yep gaetan hello!

i've got 2 questions for you: easy but i'ven't the solution!
0
cameleon33 Messages postés 635 Statut Membre 50
 
Yop!

Jsuis sur meebo si tu veux, ou alors pose les là ^^
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
ok j'arrive dsl j 'été en train de faire autre chose!
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
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!
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
des moi je vais etre indispo environ 30min a 1h je te tiens au courant qd je peux!!
a tte ;-)
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
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!!
0
cameleon33 Messages postés 635 Statut Membre 50
 
C'est bon j'y suis
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
gaetan t toujours la?!

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

merci!
0
cameleon33 Messages postés 635 Statut Membre 50
 
Ca marche
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
hello!

je suis la si t'es ok!
0
tony020422 Messages postés 566 Date d'inscription   Statut Membre Dernière intervention   6
 
je suis OP gaetan c'est qd tu veux!
0
Précédent
  • 1
  • 2
  • 3
  • 4
  • 5