Macro saisie

Bonjour à tous,

Je crée actuellement une cellule de saisie, j'ai un petit problème.

A chaque saisie il m'inscrit effectivement le contenu de la cellule, mais il ecrit au dessus de l'ancienne saisie.

Y a t-il une possibilité qu'il remplisse la cellule par dessous.

Je vous envoie le texte de la Macro

Sub NouvelleSaisie()

Application.ScreenUpdating = False

For Each Cel In Array("G10")

Range(Cel) = Application.Proper(Range(Cel))

Next Cel

With Sheets("tableau")

.Rows(6).Insert

Range("G10").Copy

.Range("A20").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

End With

Range("G10").ClearContents

Range("G10").Activate

Application.CutCopyMode = False

End Sub

Par exemple ici Range("A20").PasteSpecial Paste:=xlValues, Operation:=xlNone,

je voudrai que chaque nom saisie passe de A20 , A21, A22 etc...

Merci beaucoup de votre aide

Amicalement

Noel

Bonjour à tous,

Noel,

Ne copie pas bêtement des codes sans les comprendre !

For Each Cel In Array("G10")
Range(Cel) = Application.Proper(Range(Cel))
Next Cel 

on ne fait pas une boucle pour une cellule

.Rows(6).Insert
Range("G10").Copy
.Range("A20").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

Pourquoi insérer une ligne ?

et transposer une seule cellule, çà sert à quoi ?

ce code devrait suffire

Sub NouvelleSaisie()
    Application.ScreenUpdating = False
    Range("g10") = Application.Proper(Range("g10"))
    Range("g10").Copy
        With Sheets("tableau")
            .Range("A65536").End(xlUp)(2).PasteSpecial Paste:=xlPasteValues
        End With
    Application.CutCopyMode = False
    Range("G10").ClearContents
    Range("G10").Activate
End Sub

Bonne journée

Claude.

Re,

Bonjour Claude,

J'essaie de ne pas recopier bêtement ta macro. j'essaie de comprendre.

Mais que veux tu c'est dure à entrer.

En tout cas ça marche.

Amicalement

Noel