Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2222 connectés 

 


Dernière réponse
Sujet : [Excel]Comment faire cette mise en forme automatique ?
Nawhak Ok merci beaucoup, je vais essayer ça
 :jap:

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
Nawhak Ok merci beaucoup, je vais essayer ça
 :jap:
Sylderon A mon avis, il faut passer par de la prog VBA.
Tu crées une macro vide et tu essaies quelque chose comme ça:
 
Dim sBuf as string
Dim aBuf
 
sBuf = sheets("NomFeuille_1" ).Cells(x, y) ' (x,y) = cellule contenant ton 1
 
aBuf = Split(sBuf, "-" ) ' Excel 2000, sinon la programmer (cf + bas)
 
' Puis boucle sur ta colonne à remplir
For i = 1 To UBound(aBuf)
 ActiveSheet.Cells(i, 2) = aBuf(i)
Next i
 
NB: la fonction Split apparait avec VB6 et VBA sous Office2000
Si ton Excel est plus ancien, voici le code de la fonction Split()
 
Public Function Split(ByVal sIn As String, Optional sDelim As _
 String, Optional nLimit As Long = -1, Optional bCompare As _
  VbCompareMethod = vbBinaryCompare) As Variant
 Dim sRead As String, sOut() As String, nC As Integer
 If sDelim = "" Then
   Split = sIn
 End If
 sRead = ReadUntil(sIn, sDelim, bCompare)
 Do
   ReDim Preserve sOut(nC)
   sOut(nC) = sRead
   nC = nC + 1
   If nLimit <> -1 And nC >= nLimit Then Exit Do
   sRead = ReadUntil(sIn, sDelim)
 Loop While sRead <> ""
 ReDim Preserve sOut(nC)
 sOut(nC) = sIn
 Split = sOut
End Function
 
Je ne suis plus sur de savoir si l'initialisation des params fonctionne sur Excel97 & -
Si ça pose un pb de syntaxe, il faut modifier le code en faisant des init de nLimit avec:
if ismissing(nLimit) then nLimit = -1
et de VbCompareMethod avec:
if ismissing(VbCompareMethod) then VbCompareMethod = vbBinaryCompare
 
 
Je crois avoir été complet
 
A+
Nawhak http://ekkinox.free.fr/Images/HFR/excel.png  
 
Comment faire pour que tous les noms qu il y a en 1 et séparé par des "-" se mettent en forme comme en 2 automatiquement ?
PS : le 1 et le 2 sont sur des feuilles differentes.
Merci de m'éclairer  :)

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR