VBA et Plan de Comptes

j’espère que vous vous portez tous bien. Je suis novice en Vba mais stagiaire dans un cabinet comptable et on me demande d'ecrire une macro qui va comparer le plan comptable de l'entreprise avec le plan comptable actuellement en vigueur (vérifier que celui de l'entreprise respecte les normes) et generer un rapport s'il y'a des comptes qui ne figurent pas dans les plan comptable OHADA. après remplacer ces comptes par la norme en tenant compte des 04 premiers chiffres de chaque compte et de son intitulé. Et ensuite permettre de migrer tous les comptes de l'entreprise du l'ancien plan comptable vers le nouveau plan comptable. vraiment je ne m'y connais, je suis disposer a apprendre mais le delais que l'on m'a fixer est tres court. prière de m'aider. svp:triste::cfou::cry:

bonjour a vous, il y'a quelques jour j'ai posté mon problème et j'ai compris qu'il fallait que je lise d'abord les cours sur la programmation en Vba. j'ai lu et j'ai pu écrire ces lignes de codes. je précise bien qu'elles fonctionne seulement je n'arrive pas a intégrer la copie de la ligne. elle copie uniquement la valeur de la cellule dans une autre feuille sans la ligne j'ai grand besoin de votre aide svp
voici mon programme:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub First_Step() Dim i As Double, cell As Range Dim Saisies As Worksheet, rapport As Worksheet, recopie As Worksheet Dim sel As Variant Dim plancp As String For i = 3 To 1000 sel = Sheets("Saisies").Cells(i, 3) ' valeur de la cellule en cours sel = Left(sel, 4) If sel <> "" Then If Isexist[/COLOR](sel) Then ' si cette valeur est trouvee on ecrit dans la bonne feuille sinon dans une feuille rapport Sheets("Recopie").Cells(i, 1) = sel ' bonne feuille Else Sheets("Rapport").Cells(i, 1) = sel End If End If Next End Sub

---

Isexist() est une fonction que j'ai créer pour gérer ma recherche

Salut.

Regarde ma signature: Quand on programme en VBA pour Excel, on pense d'abord Excel avant de penser VBA.

Et j'ai envie d'ajouter: Si c'est pour un one shot, ce qui semble être le cas ici, pas besoin de VBA, surtout si tu es novice.

Deux tableaux, une formule de comparaison, une formule de remplacement et le tour est joué.

Si vraiment on doit le faire en VBA (répétition régulière de la manœuvre, par exemple), alors, on développe du VBA en appui d'Excel, surtout si on n'est pas programmeur professionnel.

Citation:

---

Envoyé par tata90

je n'arrive pas a intégrer la copie de la ligne. elle copie uniquement la valeur de la cellule dans une autre feuille sans la ligne

---

Pourrais-tu être plus explicite sur ce que tu veux copier ("la ligne", ce n'est pas très précis) et où tu veux la copier ?

Si tu veux copier la ligne i de l'onglet actif vers la même ligne de l'onglet "Recopie", la syntaxe sera :

Code:

---

Rows(i).Copy Sheets("Recopie").Cells(i, 1)

---

Même chose pour l'onglet "Rapport".