comment forcer range pr saut ligne

[Nann]

Bonsoir tout le monde,

Voila mon problème:

Je rajouter 'PN-' devans la chaine de caractère présente dans la colonne A
Mais je voudrais automatiser la chose par macro avec :

Sub insert_pn()
'
' insert_pn Macro
'

'
ActiveCell.Select
Var = Range('A3').Value
ActiveCell = 'PN-' & Var
' Range(ActiveCell) = ActiveCell + Range(1, 0)
' ActiveCell = ActiveCell + Range(1, 0)
' Range = Range(ActiveCell) + Range(1, 0)

End Sub

mais je n'arrives pas à passer à la case du dessous, désolé si sa vous fait rire mais je débute en VB

Quelqu'un peux m'aider SVP!
Merci d'avance

Ci-joint en PJ, le type de fichier d'origine à modifier avec la 'macro que je tente de créer.

 

[Hellboy]

Bonjour Nann

Ton fichier ne s'est pas rendu !

en attendant:

'    La commande Offset permet de décaler en (Ligne,Colonne)
ActiveCell.Offset(1, 0).Value =    ' ce que tu veut inscrire

 

[Nann]

ci joint le fichier excel

 

[Nann]

la pj [file name=matenet.zip size=7380]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/matenet.zip[/file]

 

[Nann]

ci joint le fichier excel

 

[Hellboy]

re Nann

Je voudrais être sur de ta question. Est-ce que le but que tu cherche a faire est de mettrre PN- devant toutes les cellules de la colonne A ?

 

[Nann]

Non pas dans toute la colonne, pas dans A1, A2, ni dans les cellules vides

 

[Hellboy]

re

J'espère que c'est ce que tu cherche !!

Sub insert_pn()
'
' insert_pn Macro
'

'
Dim Cell                    As Range

Const CstrAjout            As String * 3 = 'PN-'

For Each Cell In Range('A3:A100')
        With Cell
                If Not .Value = Empty Then
                        .Value = CstrAjout & .Value
                End If
        End With
Next Cell

End Sub

 

[Nann]

Merci pour ta réponse, c'est ok

pourrais tu m'aider sur un autre pb

du coup j'obtiens grace à toi exmple en A3
PN-22NF/50V
en C3 j'ai 805
j'aimerais trouver pouvoir obtenir en A3
PN-22NF/50V/0805

en qu cette routine fonctionne avec en C des valeurs
comme: 1206 603 402 201

mais en plus que après le dernier / il n'y est que quatre chiffre

 

[nann]

merci d'avance :whistle:

 

[Hellboy]

re

Comme ceci ?

Sub insert_pn()
'
' insert_pn Macro
'

'
Dim rngCell                    As Range
Dim strValueColC        As String

Const CstrAjout            As String * 3 = 'PN-'

For Each rngCell In Range('A3:A100')
        With rngCell
                If Not .Value = Empty Then
                '    Met en variable la valeur de la même ligne de la colonne C
                        strValueColC = Cells(.Row, 3)
                '    Vérifie la longeur de la valeur
                        Select Case Len(strValueColC)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Is < 4&nbsp; &nbsp; '&nbsp; &nbsp; Si plus petit que 4, ajoute un 0
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strValueColC = '0' & strValueColC
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Is > 4&nbsp; &nbsp; '&nbsp; &nbsp; Si plus grand que 4, tronque a 4 chiffre
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; strValueColC = Mid(strValueColC, 1, 4)
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; .Value = CstrAjout & .Value & '/' & strValueColC
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If
&nbsp; &nbsp; &nbsp; &nbsp; End With
Next rngCell

End Sub

Message édité par: Hellboy, à: 06/10/2005 22:00

 

[Nann]

merci c'est super comment ça fonctionne bien
il faut que je me penche sur le process afin de comprendre plus ta routine. :lol: :silly:

si je peux me permettre de t'importuner encore une fois ce soir, aurais tu un début d'idée sur l'autre question posé:

m1,m2,m5-m7 => m1, m2, m5, m6, m7

:whistle:

 

[Hellboy]

re

Je ne sais pas a quel question tu fais référence ?

Je ne saisis pas ce que tu veux dire par m1,m2,m5-m7 => m1, m2, m5, m6, m7

Quoi est m ???

a+

 

[Nann]

Merci,

Hervé à répondu à ma question sur l'autre sujet

Merci encore de ta formidable aide, je commence à comprendre le processus

Merci, merci, merci

Je lance un autre sujet sur la meme lancé.



:whistle: