comment forcer range pr saut ligne

N

Nann

Guest
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

XLDnaute Accro
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
 
N

Nann

Guest
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
 

Hellboy

XLDnaute Accro
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)
                                   
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
 
N

Nann

Guest
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:

:eek: 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

:eek: :whistle:
 

Statistiques des forums

Discussions
312 920
Messages
2 093 641
Membres
105 772
dernier inscrit
Momzo