Format

[JU555]

Bonsoir à toutes et tous,

Quelqu'un peut-il me dire ce qui cloche au niveau du format des nombres du fichier ci-joint et comment y remédier ?

Grand merci !

 

[JCGL]

Re : Format

Bonjour à tous,

Tu n'aurais pas oublier les $ de la plage ?

A+ à tous

Edition : Plus le format en A de la feuille 1

 

[JU555]

Re : Format

Et ici ?

Merci !

 

[JCGL]

Re : Format

Bonjour à tous,

En C1 et tirer vers le bas :

=DROITE(B1;3)*1

le *1 pour passer en numérique

et pour répondre à ta prochaine question :

Et pour les #N/A
Merci!

En D1 et tirer vers le bas :

=SI(ESTNA(RECHERCHEV(C1;Feuil2!$A$1:$B$13;2;0));"";RECHERCHEV(C1;Feuil2!$A$1:$B$13;2;0))

A+ à tous

 

[JU555]

Re : Format

Mwais ... facile, quoi ;-)

Grand merci 😛

 

[JU555]

Re : Format

OK. Ce petit souci me permet de faire tourner ma macro.

Malheureusement, si celle-ci fonctionne, elle "bugge" et je ne sais pas pourquoi.

Le nombre de lignes à traiter est certes important, mais ne justifie pas que le programme plante.

Quelqu'un voit-il pourquoi ?

Je ne peux pas joindre le fichier pcq trop gros même zippé mais je mets le code :

Sub Couleurs()

With Sheets("Tot solde")

For k = 1 To 9 Step 2
For i = 4 To Sheets("G").Cells(65536, k).End(xlUp).row
For j = 8 To .[M65536].End(xlUp).row
If Sheets("G").Cells(i, k) = .Cells(j, 12) Then
.Range("A" & j & ":M" & j).Interior.ColorIndex = Sheets("G").Cells(i, k).Interior.ColorIndex
End If
Next j
Next i
Next k


For k = 1 To 9 Step 2
For i = 4 To Sheets("A").Cells(65536, k).End(xlUp).row
For j = 8 To .[M65536].End(xlUp).row
If Sheets("A").Cells(i, k) = .Cells(j, 12) Then
.Range("A" & j & ":M" & j).Interior.ColorIndex = Sheets("A").Cells(i, k).Interior.ColorIndex
End If
Next j
Next i
Next k

For k = 1 To 9 Step 2
For i = 4 To Sheets("B").Cells(65536, k).End(xlUp).row
For j = 8 To .[M65536].End(xlUp).row
If Sheets("B").Cells(i, k) = .Cells(j, 12) Then
.Range("A" & j & ":M" & j).Interior.ColorIndex = Sheets("B").Cells(i, k).Interior.ColorIndex
End If
Next j
Next i
Next k


For k = 1 To 9 Step 2
For i = 4 To Sheets("TP").Cells(65536, k).End(xlUp).row
For j = 8 To .[M65536].End(xlUp).row
If Sheets("TP").Cells(i, k) = .Cells(j, 12) Then
.Range("A" & j & ":M" & j).Interior.ColorIndex = Sheets("TP").Cells(i, k).Interior.ColorIndex
End If
Next j
Next i
Next k


End With

End Sub

Merci !