XL 2013 Vba

[Cqgkcqs]

Bonjour à tous,

Je viens à vous pour un problème de VBA. Je travaille actuellement sur ma première VBA mais je bloque à un moment.
Dans le fichier joint "Données", vous pouvez-voir une liste de personnes et mon but est de créer de manière automatique l'insertion d'une nouvelle personne.
J'ai donc créer une VBA pour insérer une nouvelle ligne à la suite, mais si je souhaite ajouter une seconde ligne, cela me remet automatiquement sur la première ligne, ce qui est logique.

Comment faire pour descendre d'une ligne à chaque fois que je relance ma VBA ?

Je vous ai joint le fichier "Données1" qui est le travail que j'ai effectué durant 3 longues heures... Ce qui risque d'en faire sourire plus d'un !

Merci d'avance,

Fabien.

 

[CPk]

Re : Vba

Bonjour un petit exemple rapide, il y en a beaucoup d'autre bien évidement.

sub macro1()
Dim c As Range
Set c = Sheets("base").Cells(Rows.Count, 1).End(xlUp)
c.Offset(1, 0) = c + 1
End Sub

 

[DoubleZero]

Re : Vba

Bonjour à toutes et à tous,

Bienvenue sur XLD, Cqgkcqs.

Une autre suggestion :

Option Explicit
Sub Ligne_ajouter()
    With Range("a" & Rows.Count).End(xlUp)(2)
        .FormulaR1C1 = "=R[-1]C+1"
        .Offset(, 1).Select
    End With
End Sub

A bientôt

 

[Cqgkcqs]

Re : Vba

Merci de votre aide !

A présent, ma première VBA me fait descendre d'une ligne, mais la seconde, dans laquelle je remplis toutes les cases de la ligne, reste sur la première. Normal puisque j'ai des codes comme celui là : Range("B101").Value = Me.TextBox1.Text

Comment renouveler l'opération dans ce type de code ?

Merci d'avance !

 

[CPk]

Re : Vba

Au lieu d'écrire Range("B101").Value qui est une position fixe, il faut écrire une expression dynamique afin que ce soit toujours la première ligne non vide qui soit remplis du textbox 1

 

[Cqgkcqs]

Re : Vba

J'ai tenté cela, sans succès.. :

Range("B" & Rows.Count).End(xlUp).Offset(1).Select = Me.TextBox1.Text

 

[CPk]

Re : Vba

essayez cells(rows.count,2).end(xlup).offset(1,0) = textbox1

 

[Cqgkcqs]

Re : Vba

Merci !

J'ai un VBA qui ajoute juste un numéro en colonne A et un VBA qui me permet de compléter le reste de la ligne.

Pour ajouter le numéro, j'ai ce codage :

Sub Macro1()
Dim c As Range
Set c = Sheets("base").Cells(Rows.Count, 1).End(xlUp)
c.Offset(1, 0) = c + 1
End Sub

Comment dois-je l'insérer dans mon second VBA, UserForm1 afin de regrouper les 2 actions en 1 ?
J'ai essayé en ajoutant Private Sub Macro1() ou Private Sub UserForm_Activate () mais cela ne fonctionne pas.

 

[elie32550]

Re : Vba

Bonjour,
Je vois que vous êtes très forts en VBA.
J'ai posé cette question ce matin, et personne ne me répond.
Voila la question:
Je cherche une façon d'additionner la même cellule de plusieurs fichiers, ouverts ou pas.
Pour être précis, la TVA de plusieurs factures, qui se trouvent chacune dans un fichier différent.
La TVA se trouve toujours dans la même cellule.
Merci pour votre aide.
Cordialement

 

[Calvus]

Re : Vba

Bonjour le fil,

@ elie32550,

Si tu veux des réponses, mieux vaut poster un nouveau sujet, faire une demande explicite, joindre un fichier exemple, etc etc etc ...
Egalement lire Lien supprimé

Tu auras alors des réponses.
Pas en s'insinuant dans un sujet...

 

[DoubleZero]

Re : Vba

Re-bonjour, bonjour, elie32550, Calvus ,

Qui plus est...

XLD est un forum de bénévoles, lesquels répondent selon leurs aptitudes et disponibilités.

Bonne continuation

 

[elie32550]

Re : Vba

Bonjour,
Merci à vous, DoubleZero et Calvus.
Je vais essayer de faire comme vous dites, mais ce n'est pas sûr que j'y arrive car je suis nouveau dans ce site.
Merci encore.
Cordialement

 

[Cqgkcqs]

Re : Vba

Du coup je me permets de relancer mon dernier message

Merci !

J'ai un VBA qui ajoute juste un numéro en colonne A et un VBA qui me permet de compléter le reste de la ligne.

Pour ajouter le numéro, j'ai ce codage :

Sub Macro1()
Dim c As Range
Set c = Sheets("base").Cells(Rows.Count, 1).End(xlUp)
c.Offset(1, 0) = c + 1
End Sub

Comment dois-je l'insérer dans mon second VBA, UserForm1 afin de regrouper les 2 actions en 1 ?
J'ai essayé en ajoutant Private Sub Macro1() ou Private Sub UserForm_Activate () mais cela ne fonctionne pas.

 

[CPk]

Re : Vba

Bonjour, dans un premier temps, le plus simple est de nous informer du résultat souhaité dans sa globalité et dans un second temps, on vous expliquera comment/quoi faire. Vous avez un userform ? A quoi sert-il ? Le bouton "ok" dessus à quoi sert-il ?

 

[elie32550]

Re : Vba

Bonjour,
Merci à toi Cqgkcqs.
A force de chercher dans le différents fichiers proposés dans le Forum, j'en ai bidouillé un, qui marche.
J'ai réussi à faire ce que je voulais.
Ce n'est pas moi qui l'ai crée, je n'ai fais que le modifier.
Merci à la personne qui l'a développé (qui le reconnaîtra sans doute).

Voici l'exemple :

Option Explicit
Option Base 1
Sub ChercheFichiersFermesV01()
Dim X As Integer, NbFichiers As Integer, Y As Integer
Dim Tableau() As String
Dim Direction As String
Dim Valeur As Double

Application.ScreenUpdating = False
Direction = Dir(ThisWorkbook.Path & "\*.xls")
Do While Len(Direction) > 0 'liste tous les classeurs du repertoire
NbFichiers = NbFichiers + 1
ReDim Preserve Tableau(1 To NbFichiers)
Tableau(NbFichiers) = Direction
Direction = Dir()
Loop

If NbFichiers > 0 Then
For X = 1 To NbFichiers 'boucles sur les classeurs

' pour ne pas prendre en compte le classeur contenant la macro (synthese)
If Tableau(X) <> ThisWorkbook.Name Then

For Y = 1 To 3 'boucle sur les produits à récupérer
'recupere la valeur deja existante dans le tableau de synthese
Valeur = ActiveSheet.Cells(Y + 4, 2)

With ActiveSheet.Cells(Y + 4, 2) 'ajout des nouvelles valeurs
.Formula = "='" & ThisWorkbook.Path & "\[" & Tableau(X) & "]" & "Feuil1" & "'!" _
& Cells(Y + 57, 6).Address
.Value = .Value + Valeur
End With

Next Y

End If
Next X
End If

Application.ScreenUpdating = True
End Sub

Merci encore.
Cordialement.
Elie