VBA Comment Spliter cette cellule

B

Banzai64

XLDnaute Accro

• 2 Mars 2011

• #16

Re : VBA Comment Spliter cette cellule

Bonjour

A essayer


Arpette Split ligne V006.zip


Bonne journée

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 2 Mars 2011

• #17

Re : VBA Comment Spliter cette cellule

Bonsoir Banzai, dès que je supprime une ligne, j'ai une erreur "423" sur cette ligne de code.
@+

Code:

Application.Union(Range("A20:A" & Cel.Row - 2), Range("C20:F" & Cel.Row - 2)).HorizontalAlignment = xlCenter
        Range("D20:F" & Cel.Row - 2).NumberFormat = "0.00"

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 2 Mars 2011

• #18

Re : VBA Comment Spliter cette cellule

Bonjour

A vérifier

Arpette Split ligne V007.zip

Bonne journée

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 2 Mars 2011

• #19

Re : VBA Comment Spliter cette cellule

ReBonsoir Banzai, plus d'erreur tout fonctionne. Par contre j'ai du mal à caler la ligne 50. Ex: je tape DB100 qui n'a qu'une ligne en désignation, Il me faudrais une MsgBox " oui ou non" si je veux insérer 56 lignes, car si le devis est terminé je n'insère rien, si il y d'autres choses à écrire j'insère. Ensuite, si j'insère il faut supprimer la bordure en 50 et redélimiter la bordure A20:F61.
Merci de ton aide
@+

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 2 Mars 2011

• #20

Re : VBA Comment Spliter cette cellule

Bonsoir

Nouvelle (et pour le moment dernière) version

Cela devient usine à gaz

A tester

Bien si bug que je n'ai pas vu, j'essaierai de les corriger

Bonne soirée

Arpette Split ligne V008.zip

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 3 Mars 2011

• #21

Re : VBA Comment Spliter cette cellule

Bonsoir Banzai, juste pour te dire que mon projet est terminé. Il y avait quelques bugs à l'insersion de page ou suppression et à la mise en page. Tu ne pouvais pas le voir car il fallait tester tous les cas de figure et c'est très long. Un grand merci à toi pour ton aide car sans, j'y serais encore, et ce ne serait pas d'une usine à gaz, mais certainement d'une centrale nucléaire, genre Tchernobyl à laquelle j'aurais accouché.
Encore un grand merci et à bientôt.
Amicalement
Pascal.

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 3 Mars 2011

• #22

Re : VBA Comment Spliter cette cellule

Bonsoir

Si bug je veux bien essayé de voir
mais faut m'expliquer Où, Quand et Comment ?

Bonne nuit

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 4 Mars 2011

• #23

Re : VBA Comment Spliter cette cellule

Bonjour Banzai, c'est vraiement sympa. Je te joints ma version défininitive, où ma mise en page est impécable. Donc sur la V008, tu supprimes IEX en A47 et tu la renseignes en A48. Tu arrives sur la dernière ligne en B50 pas d'insertion. Si devis pas terminé tu renseignes en A51, il ya bien insertion mais la mise en page n'est pas bonne et ça bug si tu supprimes cette dernière saisie. Avec mon fichier c'est mieux, mais à l'insertion je coupe la ligne 50 et la décale en B108. Par contre pas de problème de mise en page et de suppression. Sinon, tout roule🙂
Merci de aide
@+
Cijoint.fr - Service gratuit de dépôt de fichiers

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 4 Mars 2011

• #24

Re : VBA Comment Spliter cette cellule

Bonjour

J'essaie de réparer mes bugs mais je ne garanti pas que je n'en crée d'autres

la mise en page n'est pas bonne

Cliquez pour agrandir...

Cela veut dire quoi ?

ça bug si tu supprimes cette dernière saisie.

Cliquez pour agrandir...

Corrigé

Donc à voir


Arpette Split ligne V010.zip

Bonne fin d'après-midi

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 4 Mars 2011

• #25

Re : VBA Comment Spliter cette cellule

Bonsoir Banzai, c'est nickel, tu as corrigé "Cela veut dire quoi " en rétablissant les évènements, j'ai juste rajouté pour supprimer la bordure en 50 lors de la copie après insertion le bout de code

Code:

 If Target.Row + UBound(Temp) > Cel.Row - 2 Then               
          Rows(Cel.Row - 2 & ":" & Cel.Row + 55).Insert             
          Range("A108:F108").Copy Range("A50")
          Range("A50:F50").Borders.LineStyle = xlNone  'ICI
          Range("A108:F108").ClearContents

J'ai également rajouter pour eviter les chevauchements lors de la saisie cette ligne

Code:

'Place le curseur en colonne A à côté de la première cellule vide en B
    Range("B19").End(xlDown).Offset(1, -1).Select

Voilà projet terminé et bien ficelé grace à toi.

Avant d'ouvrir un nouveau post qui n'a rien à voir avec ce projet, je te pose la question, j'ai modifié un code dans Thisworkbook d'une macro et je voudrais l'exporter et l'importer dans toutes les macros qui se trouvent dans un dossier. Si tu as une idée
Merci pour toute ton aide.
@+

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 4 Mars 2011

• #26

Re : VBA Comment Spliter cette cellule

Bonsoir
Tant mieux que ton projet fonctionne
Pour ta question avec si peu d'éléments je ne vois pas
Le mieux c'est d'ouvrir un autre post (d'abord faire une recherche) afin d'exposer le cas
Bonne soirée

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 4 Mars 2011

• #27

Re : VBA Comment Spliter cette cellule

Ok Banzai, j'ouvre un nouveau post et encore un grand merci pour ton aide.
@+

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 16 Mars 2011

• #28

Re : VBA Comment Spliter cette cellule

Bonsoir Banzai, j'ai crié victoire trop vite, à partir de la version002 il n'y a plus de macro pour spliter dans la feuille fournisseur, je l'ai donc remise, si rajoute une référence cela fonctionne mais je ne récupère plus le split dans la feuille Devis.
Merci de ton aide.
@+
Cijoint.fr - Service gratuit de dépôt de fichiers

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 17 Mars 2011

• #29

Re : VBA Comment Spliter cette cellule

Bonjour

A voir

Arpette Devis V012.zip

 

Vote positif 0 Vote négatif

A

Arpette

XLDnaute Impliqué

• 17 Mars 2011

• #30

Re : VBA Comment Spliter cette cellule

Bonsoir Banzai, superbe, il me reste à contourner le problème que tu parfaitement identifié "Attention 2 : si après une référence il y a une catégorie il faut impérativement (au minimum) une ligne vide (Voir la référence CJP) et le résultat sur le devis. Il faut que que je trouve la syntaxe, pour dire que dans la feuille fournisseur en colonne B, si le texte de la ligne suivante (catégorie) est en Rouge, j'insère une ligne.
Comme ça je suis blindé.
Merci de ton aide
@+

 

Vote positif 0 Vote négatif