Remplir un tableau avec formatage particulier

[Geely]

Bonjour le Forum

Je souhaite que ma macro puisse copier les cellules et les coller dans un tableau en gardant que le nombre, et en remplaçant le point par une virgule.
Tout cela sans modifier le format du tableauB.


Geely

 

[Dull]

Re : Remplir un tableau avec formatage particulier

Salut Geely, le Forum

Comme tu n'a pas beaucoup de chose à remplacer tu peux essayer cela

Option Explicit
Dim i As Byte

Sub RemplirTableauB()
Range("C3:C17").Copy
Application.ScreenUpdating = False
    With Sheets("calcul")
        .Range("F5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
            For i = 5 To 19
                .Cells(i, 6) = Replace(.Cells(i, 6), ".", ",")
                .Cells(i, 6) = Replace(.Cells(i, 6), " Sec,", "")
                .Cells(i, 6) = Replace(.Cells(i, 6), " g/l", "")
                .Cells(i, 6) = Replace(.Cells(i, 6), "%", "")
                .Cells(i, 6) = Replace(.Cells(i, 6), " ", "")
                .Cells(i, 6) = .Cells(i, 6) * 1
            Next i
    End With
    Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

a tester

EDITION: j'ai ajouter .Cells(i, 6) = .Cells(i, 6) * 1 avant Next i afin de transformer le texte en nombre

Bonne Journée

 

[Gareth]

Re : Remplir un tableau avec formatage particulier

Bonjour à tous,

Ci-joint une autre solution

Sub RemplirTableauB()
For Each X In Feuil1.[C3].CurrentRegion
    Set Dest = Feuil2.[F60000].End(xlUp).Offset(1, 0)
    If X.NumberFormat = "0%" Then
        Dest.Value = X.Value
    Else
        Dest.Value = Split(Trim(X.Value), " ")(0)
    End If
Next
End Sub

Voir le fichier joint

 

[Gareth]

Re : Remplir un tableau avec formatage particulier

Re,

La version light ...

Sub RemplirTableauB2()
For Each X In Feuil1.[C3].CurrentRegion
    Feuil2.[F60000].End(xlUp).Offset(1, 0).Value = IIf(X.NumberFormat = "0%", X.Value, Split(Trim(X.Value), " ")(0))
Next
End Sub

 

[Geely]

Re : Remplir un tableau avec formatage particulier

Merci à vous deux
La solution de Dull parait plus simple, notamment si je souhaite copier uniquement les lignes visibles en ajoutant:Selection.SpecialCells(xlCellTypeVisible).Select
Geely

 

[Gareth]

Re : Remplir un tableau avec formatage particulier

Re,

Le code modifié avec les cellules visibles seulement :

Sub RemplirTableauB2()
For Each X In Feuil1.[C3].CurrentRegion.SpecialCells(xlCellTypeVisible)
    Feuil2.[F60000].End(xlUp).Offset(1, 0).Value = IIf(X.NumberFormat = "0%", X.Value, Split(Trim(X.Value), " ")(0))
Next
End Sub

 

[Geely]

Re : Remplir un tableau avec formatage particulier

J'ai un autre petit problème si des lignes sont masquées.
j'arrive bien a copier uniquement les lignes visibles, mais pas à coller les 15 premières lignes visibles

Geely

 

[Gareth]

Re : Remplir un tableau avec formatage particulier

Re,

Pour les 15 lignes comme ceci :

Sub RemplirTableauB()
i = 1
 For Each X In Feuil1.[C3].CurrentRegion.SpecialCells(xlCellTypeVisible)
     If i < 16 Then Feuil2.[F60000].End(xlUp).Offset(1, 0).Value = IIf(X.NumberFormat = "0%", X.Value, Split(Trim(X.Value), " ")(0))
     i = i + 1
 Next
 End Sub

 

[Dull]

Re : Remplir un tableau avec formatage particulier

Re le Fil
Salut Gareth 🙂

Mon Usineàgaz 😱 comparé au code épuré de Gareth

Bonne Journée

 

[Geely]

Re : Remplir un tableau avec formatage particulier

Merci pour ces deux solutions

Le code de Gareth est très élégant. celui de Dull plus simple à comprendre

Nikel
merci

Geely

 

[Geely]

Re : Remplir un tableau avec formatage particulier

Bon début de semaine à tous

La solution apportée par Dull fonctionne bien, sauf lorsqu’il y a plusieurs masquages dans la feuille à copier
Je ne comprend pas pourquoi.
ci-joint le fichier qui pose problème, avec plusieurs masquage.


si il y a peu ou pas de masquage ça marche!



Geely

 

[Geely]

Re : Remplir un tableau avec formatage particulier

A mon avis cela se passe des qu'il y a un masquage au delà de la 15 eme lignes affichées

Geely