mirmoleboss
Messages postés303Date d'inscriptionmercredi 11 octobre 2006StatutMembreDernière intervention29 juillet 2011
-
22 juil. 2011 à 14:57
mirmoleboss
Messages postés303Date d'inscriptionmercredi 11 octobre 2006StatutMembreDernière intervention29 juillet 2011
-
22 juil. 2011 à 15:38
Bonjour,
Dans le cadre de mon travail je me retrouve confronté à un problème.
D'un côté j'ajoute des activités a l'aide des boutons dans un fichier Excel (L'ajout ce fait de la façon suivante, sélection d'une plage et on copie celle-ci a après la dernière ligne existante (Dans ces cellules il y a des formules)
A la base on a le tableau suivant (
ID - Texte
-----------
1 - AA
2 - BB
3 - CC
4 - DD
5 - EE
Apres suppression (de la ligne où se situe l'id 4)
ID - Texte
-----------
1 - AA
2 - BB
3 - CC
5 - EE
En parallèle on crée dans une autre feuille un tableau qui reprend ces infos mais si je supprime dans le tableau de la feuille 1 je me retrouve avec ca en feuille 2
ID - Texte
-----------
1 - AA
2 - BB
3 - CC
4 - DD
5 - EE (Info recuperer dans la feuille 1)
ID - Texte
-----------
1 - AA
2 - BB
3 - CC
4 - EE (il va chercher
5 - RIEN (mais la formule de reprise de donnée est présente si l'on sélectionne la cellule)
Maintenant le problème identifiée est-ce que quelqu'un aurait une idée de solution?
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018211 22 juil. 2011 à 15:12
Bonjour,
Maintenant le problème identifiée est-ce que quelqu'un aurait une idée de solution?
Non ! pas clair du tout !
Montre ton code, surtout celui qui fait ceci :
En parallèle on crée dans une autre feuille un tableau qui reprend ces infos mais si je supprime dans le tableau de la feuille 1 je me retrouve avec ca en feuille 2
en le commentant sur ce que tu attends de chaque instruction.
____________________
Utiliser le bouton "REPONSE ACCEPTEE" sur une réponse exacte facilite les recherches ultérieures d'autres forumeurs. PENSEZ-Y SVP
mirmoleboss
Messages postés303Date d'inscriptionmercredi 11 octobre 2006StatutMembreDernière intervention29 juillet 2011 22 juil. 2011 à 15:38
Désolé pour l'incompréhension.
Je souhaite pouvoir lorsque je supprime une ligne sur la feuille 1 que pour l'id correspondant sur la feuille 2 la ligne soit supprimée. (Et que l'on puisse répèter l'opération).
Actuellement ca supprime bien sur la feuille 1, dès cette suppresion sur la feuille 2 on se retrouve avec le decalage expliquée précédement.
Merci
Sub Bouton3_QuandClic()
Dim msg As String
msg = "Etes-vous sure d'ajouter une activité ?" ' Define message.
title = "Ajoutre une activité / add activity" ' Define title.
' Display message.
response = MsgBox(msg, vbOKCancel, title)
If response = vbOK Then
nbactivite = Range("NBactivite").Value
nbactivite = nbactivite + 1
Application.ScreenUpdating = False
Tab1:
Sheets("feuil1").Activate
Rows(9).Copy
ActiveSheet.Range("END2").Select
Selection.Insert Shift:=xlDown
Selection.EntireRow.AutoFit
Application.CutCopyMode = False
Selection.Cells(1, 1) = nbactivite 'ajouté
Tab2:
Sheets("feuil2").Activate
Rows(4).Copy
ActiveSheet.Range("END3R").Select
Selection.Insert Shift:=xlDown
Selection.EntireRow.AutoFit
Application.CutCopyMode = False
Selection.Cells(1, 1) = nbactivite 'ajouté
End If
Sheets("feuil1").Activate
Range("NBactivite").Value = nbactivite
Application.ScreenUpdating = True
End Sub