VBA insertion ligne dans tableau

Bonjour Nus,
est-ce que les options de partage du classeur ne suffiraient pas ?
outils/partager le classeur

Merci Ivna-Hoe ça marche.

Un autre petite question, toutes les données inscrites dans mes textbox et combobox sont insérées à la ligne 4 grâce à l'instruction suivante:

Feuil1.Range("B4") = affaireComboBox2
Feuil1.Range("C4") = dateEmissionTextBox
Feuil1.Range("D4") = origineTextBox
Feuil1.Range("E4") = emmetteurTextBox
Feuil1.Range("F4") = libelleActionTextBox
Feuil1.Range("G4") = respActionComboBox
Feuil1.Range("H4") = delaiSouhaiteTextBox
Feuil1.Range("I4") = criticiteTextBox
Feuil1.Range("J4") = statutComboBox
Feuil1.Range("L4") = commentaireTextBox
Feuil1.Range("M4") = avancementTextBox

Maintenant si je rempli à nouveau mon userform, les nouvelles données effacent les précédentes toujours sur la ligne 4.
comment faire pour conserver les données de la ligne 4 et insérer les nouvelles données sur la ligne suivante.
le problème étant que si par exemple j'ai déjà disons 22 lignes complétées, la 23° vienne à la suite de la 22ième et ainsi de suite.

désolé mais je découvre visual et ma boite ne veux pas investir pour ma formation!!

merci

bon je viens de tester ton code mais il m'affiche un message d'erreur: "la méthode 'Range' de l'objet requis '_worksheet' a échoué" !! et il sélectionne en jaune la 1ère ligne :Feuil1.Range("B"&i)=affaireComboBox2 ??

Dim i As Long
i = Range("B4").End(xlDown).Row + 1
'i prend la valeur du numéro de la dernière ligne de données +1

Feuil1.Range("B" & i) = affaireComboBox2
Feuil1.Range("C" & i) = dateEmissionTextBox
Feuil1.Range("D" & i) = origineTextBox
Feuil1.Range("E" & i) = emmetteurTextBox
Feuil1.Range("F" & i) = libelleActionTextBox
Feuil1.Range("G" & i) = respActionComboBox
Feuil1.Range("H" & i) = delaiSouhaiteTextBox
Feuil1.Range("I" & i) = criticiteTextBox
Feuil1.Range("J" & i) = statutComboBox
Feuil1.Range("L" & i) = commentaireTextBox
Feuil1.Range("M" & i) = avancementTextBox

on ne peut pas joindre de fichier sinon??

merci

bonjour Ivan-hoe

j'ai encore une erreur qui apparait: erreur définie par l'application ou par l'objet. cette ligne est sélectionée en jaune:

Sheets("en_cours").Range("B" & i) = affaireComboBox2

que faire??

merci

Salut Ivan-hoe

j'ai une nouvelle question sur mon UserForm
tous fonctionne bien mais j'aurai besoin d'ajouter un contrôle.
j'ai une instruction qui fonctionne et qui me permet de vérifier si les dates sont au format jj/mm/aaaa
si la date est incorrect la MsgBox apparait bien lorsque je clique sur la touche OK de mon userform. Elle se ferme et inscrit quand même le mauvais format de date dans la case prévue à cette effet!!

Comment faire pour que, si le format de date est incorrect et que l'on clique sur le bouton OK, la userform reste ouverte tant que la date n'a pas été modifier.

merci

Salut Ivan-hoe,

j'ai mis eu peu de temps à répondre mais merci pour ton aide

j'ai encore une question !!

dans le même fichier, le nom des agents méthodes se trouve dans la colonne G, puis un pourcentage dans la colonne M.

Comment faire sous VBA pour que par exemple dans la colonne G si le nom de la personne est Mr X, la macro fasse la somme des % dans la colonne M (car chaque personne à plusieurs actions en cours) puis diviser cette somme par le nombre de valeurs de cette même personne. je ne sais pas si c'est très clair.

je pensais commencer comme ça, mais je ne suis pas très doué:

private sub .....
If Range("G65536") = "Mr X" Then
...
merci

Salut Ivan

oublions la question précédente !!

cette instruction me permet de copier les données d'une ligne dans un autre onglet lorsque le mot "Soldée" apparait dans une case de la colonne J.

Sub solder_actions()
Dim i As Integer
Dim konteur As Integer
Dim NBsold As Integer

NBsold = 4

'comptage des cellules dans l'onglet "soldées"

ActiveWorkbook.Worksheets("soldées ").Activate
For konteur = 4 To 4000

If Range(Cells(konteur, 1), Cells(konteur, 1)) <> "" Or Range(Cells(konteur, 2), Cells(konteur, 2)) <> "" Then

NBsold = NBsold + 1
End If

Next konteur

ActiveWorkbook.Worksheets("en_cours").Activate

For i = 4 To 1000

If Range(Cells(i, 10), Cells(i, 10)) = "Soldée" Then
Range(Cells(i, 1), Cells(i, 10)).Copy ActiveWorkbook.Worksheets("soldées ").Cells(NBsold, 1)

'suppression de la ligne
ActiveWorkbook.Worksheets("en_cours").Activate
Range(Cells(i, 1), Cells(i, 15)).Select
Selection.Delete Shift:=xlUp

NBsold = NBsold + 1

'on reste sur la même ligne
i = i - 1
Cells(i, 1).Activate
Else
End If

Next i
ActiveWorkbook.Worksheets("en_cours").Activate

End Sub


J'ai essayé plusieurs modification car en fait je souhaite copier les données de chaque ligne dans l'autre onglet sauf la donnée de la colonne K, car il s'agit d'un compte à rebours mais j'ai inscrit automatiquement la valeur 0 dans toute la colonne du second onglet (onglet où sont donc stocker des actions quand elles sont terminées : 100% inscrit dans la colonne M ou colonne 13 dans le code)

Merci