Conversion et collage automatique

[Hervé_88]

Bonjour à tous,

J'ai un petit besoin sur un fichier excel (2 demande).
-1er convertion automatique d'une cellule texte en cellule numérique
-2ème coller automatiquement dans une cellule vide la valeur de la cellule qui se trouve au-dessus de la même colonne

Ci-joint le fichier (le fichier est une extration d'un logiciel)

 

[jeanba]

Re : Urgent!!! demande d'aide d'avance Merci

Bonjour à tous,

J'ai un petit besoin sur un fichier excel (2 demande).
-1er convertion automatique d'une cellule texte en cellule numérique
-2ème coller automatiquement dans une cellule vide la valeur de la cellule qui se trouve au-dessus de la même colonne

Ci-joint le fichier (le fichier est une extration d'un logiciel)

Bonjour Hervé 88,

Pour la conversion de texte en numérique, est-ce que tu as essayé avec "Format/Cellule/" et choisir nombre au lieu de Standart ou texte?
jeanba

 

[Hervé_88]

Re : Conversion et collage automatique

Bonjour Jeanba,

Oui, cela ne fonctionne pas car la valeur est exporté d'un logiciel en format txt

 

[jeanpierre]

Re : Conversion et collage automatique

Bonjour Hervé 88 et Bienvenue, jeanba, le forum,

Edition/Remplacer, dans le premier champ, tu maintiens la touche Alt enfoncée et tu saisies 0160, et Remplacer tout.

Tu nous dis.

Bonne journée.

Jean-Pierre

Edit : Je viens de voir qu'il y avait une autre question. Pour le moment je ne sais pas

 

[jeanpierre]

Re : Conversion et collage automatique

Re,

Toujours pour la première question, en macro, cela donnerait (via l'enregistreur) :

Sub RemplacerCarInsécable()

Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False

End Sub

Alt F11 pour aller à VBE,
- Affichage/Explorateur de projets
- Insertion/Module

et tu colles ce code.

 

[Cousinhub]

Re : Conversion et collage automatique

Bonjour, regarde le fichier joint
Le code :

Sub complete()
Columns("A:A").NumberFormat = "dd/mm/yyyy"
Range("A1").SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A2:A" & [c65000].End(xlUp).Row).Value = Range("A2:A" & [c65000].End(xlUp).Row).Value
For Each cel In Range("E2:F" & [f65000].End(xlUp).Row)
cel.Value = Format(cel.Value, "0")
Next cel
End Sub

 

[Hervé_88]

Re : Conversion et collage automatique

Bonjour jeanpierre, bonjour bhbh,

A vous deux un très grand merci !!!

A+

 

[Hervé_88]

Re : Conversion et collage automatique

Rebonjour bhbh,

Peux-tu modifier le code VBE pour qu'il ne modifi pas toutes les colonnes pour les cellules vide à partir de E

D'avance merci

 

[Cousinhub]

Re : Conversion et collage automatique

Re-, le fichier modifié :

le code :

Sub complete()
Columns("A:A").NumberFormat = "dd/mm/yyyy"
Range("A1:C" & [A65000].End(xlUp).Row).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A2:C" & [c65000].End(xlUp).Row).Value = Range("A2:C" & [c65000].End(xlUp).Row).Value
For Each cel In Range("E2:F" & [f65000].End(xlUp).Row)
cel.Value = Format(cel.Value, "0")
Next cel
End Sub

 

[Hervé_88]

Re : Conversion et collage automatique

Encore un très grand Merci à toi bhbh et bonne journée

🙂🙂🙂

A+++

Hervé_88