comment forcer range pr saut ligne

Nann · 6 Octobre 2005

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 · 6 Octobre 2005

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 · 6 Octobre 2005

ci joint le fichier excel

Nann · 6 Octobre 2005

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

Nann · 6 Octobre 2005

ci joint le fichier excel

Hellboy · 6 Octobre 2005

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 · 6 Octobre 2005

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

Hellboy · 6 Octobre 2005

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 · 6 Octobre 2005

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 · 6 Octobre 2005

merci d'avance :whistle:

Hellboy · 6 Octobre 2005

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    '    Si plus petit que 4, ajoute un 0
                                                strValueColC = '0' & strValueColC
                                    Case Is > 4    '    Si plus grand que 4, tronque a 4 chiffre
                                                strValueColC = Mid(strValueColC, 1, 4)
                        End Select
                    .Value = CstrAjout & .Value & '/' & strValueColC
                End If
        End With
Next rngCell

End Sub

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

Nann · 6 Octobre 2005

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 · 7 Octobre 2005

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 · 7 Octobre 2005

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:

comment forcer range pr saut ligne

Nann

Guest

Hellboy

XLDnaute Accro

Nann

Guest

Nann

Guest

Pièces jointes

Nann

Guest

Hellboy

XLDnaute Accro

Nann

Guest

Hellboy

XLDnaute Accro

Nann

Guest

nann

Guest

Hellboy

XLDnaute Accro

Nann

Guest

Hellboy

XLDnaute Accro

Nann

XLDnaute Nouveau

Discussions similaires