× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Un tableau avec un souci VBASujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
vedene
  Posté le 17/04/2009 @ 20:07 
Aller en bas de la page 
Petit astucien

Bonsoir à tous,

Je reviens vers vous pour un soucis de VBA qui ne fonctionne pas (avec moi)

Un fichier ICI

http://www.cijoint.fr/cj200904/cijlMWkJ2e.xls

(Milles excuses pour bérylion)

Merci d'avance pour votre aide et surtout si vous pouviez simplifier mon "Usine"

A très bientôt donc (j'espère)



Modifié par vedene le 17/04/2009 20:23
Publicité
galopin01
 Posté le 17/04/2009 à 21:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

Euh... Pour l'instant j'ai pas cherché à simplifier j'ai juste fait en sorte que "ça marche" !

Private Sub CommandButton1_Click()
Dim i%, k%, Arr, Ard
Sheets("Cycle").Unprotect
With Sheets("Cycle")
While Not .Cells(7, 5) = "FIN" 'Colonne D et V qui seront cachées
.Columns(5).Delete
Wend
k = Sheets("Compétences").Range("B6").End(4).Row - 5
Arr = Sheets("Compétences").Range("B6:C" & k + 5)
Ard = Sheets("Compétences").Range("F6:G" & k + 5)
For i = k To 1 Step -1 'k est le nombre de compétences
.Columns(5).Insert
.Columns(5).ColumnWidth = 2
.Cells(7, 5) = Arr(i, 1)
.Cells(6, 5) = Ard(i, 1)
.Cells(8, 5).FormulaR1C1 = "=COUNTA(R[+134]C:R[+1]C)" 'mise en place des formules

With .Cells(7, 5).AddComment(Arr(i, 2))
With .Shape
.TextFrame.AutoSize = True
With .OLEFormat.Object
.Interior.ColorIndex = 36
.Font.Name = "Comic Sans MS"
.Font.ColorIndex = 3
.Font.Size = 12
.Font.Bold = True
'.AutoSize = True
End With
End With

End With
If .Cells(7, 5) = .Cells(6, 5) Then
With .Cells(6, 5).AddComment(Ard(i, 2))
With .Shape
.TextFrame.AutoSize = True
With .OLEFormat.Object
.Interior.ColorIndex = 2
.Font.Name = "Comic Sans MS"
.Font.ColorIndex = 7
.Font.Size = 12
.Font.Bold = True
'.AutoSize = True
End With
End With
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
End With
End If
Next
End With

End Sub

A+



Modifié par galopin01 le 17/04/2009 21:34
vedene
 Posté le 18/04/2009 à 10:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour galopin01

Merci beaucoup et pile poil ce que je voulais.

Pour la simplification, on verra plus tard (peut être si nécessaire)

En tous les cas c'est super

Je marque comme résolu

A bientôt



Modifié par vedene le 18/04/2009 10:09
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
Gratuit3 mois d'abonnement à Amazon Music Unlimited gratuits
Valable jusqu'au 26 Juin

Amazon vous permet d'essayer son service de streaming musical pendant 3 mois gratuitement. Avec Amazon Music Unlimited, accédez à plus de 50 millions de titres, sans publicité et en illimité sur tous vos appareils : smartphone, tablette, PC/Mac, Fire, Alexa. Vous avez même la possibilité de télécharger vos playlists pour des écoutes hors connexion. A la fin de ces 3 mois, vous pourrez basculer vers l'offre payante à 9,99 € / mois ou bien arrêter sans frais le service. A noter l'existence d'une offre famille à 14,99 € / mois qui permet jusqu'à 6 utilisateurs d'écouter leur musique à tout moment et sur leurs appareils préférés. Vous pouvez annuler l'abonnement à tout moment.


> Voir l'offre
60 €Abonnement un an de Deezer Premium + carte fnac+ à 60 €
Valable jusqu'au 30 Mai

Fnac fait une promotion sur l'abonnement un an de Deezer Premium qui passe à 60 € au lieu de 99 €. Deezer Premium vous permet d'écouter toute votre musique en illimité, sans publicité, même sans réseau. La carte Fnac+ vous est également offerte (livraison gratuite et illimitée, caisse prioritaire en magasin, ....)


> Voir l'offre
9,99 €Adaptateur Bluetooth USB TP-Link UB400 à 9,99 €
Valable jusqu'au 30 Mai

Amazon fait une promotion sur l'adaptateur Bluetooth USB TP-Link UB400 qui passe à 9,99 €. Cet adaptateur à brancher sur un port USB va vous permettre d'ajouter le bluetooth à votre ordinateur et d'utiliser ensuite sans fil vos périphériques bluetooth : souris, clavier, casque, manette, téléphone, ...


> Voir l'offre

Sujets relatifs
Faire un tableau sur Excel avec des sauts de lignes
lenteur INDEX/MATCH avec variables tableau
vba : ds tableau, insérer ligne (non entière) avec reprise formule
tranposer un tableau vert./ horizontal avec sommes
Petit souci avec PDFXchange Viewer
Souci avec Adobe Reader X et même XI
Tableau avec OpenOffice.org Calc
créer tableau excel avec débit crédit et solde
Petit souci d'intervalle avec le publipostage
Souci avec Incredimail
Plus de sujets relatifs à Un tableau avec un souci VBA
 > Tous les forums > Forum Bureautique