Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonsoir tous,
Perso j'ai des fichiers ou j'utilise ceci . . . voir fichier
J'utilise seulement le plein écran sans toucher au ruban
Voir Feuil3 pour retrouver les menus
Bon j'ai pas bloqué le VBA
C'est un exemple
Bruno
Bonjour ou plutot bonsoir,
En ayant fait qlq peu . . .
Je n'ai pas testé mais voici ma solution à essayer
Merci du retour
Bruno
function Efface() {
var range = 'Sheet1!D2:E2';
var valueRangeBody = {
values: [
['', '']
]
};
Bonjour tous,
ou encore dès nouvel onglet
Trés étonnant que Gérard n'y est pas pensé
Bruno
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Protect "CharBel", UserInterfaceOnly:=True
End Sub
Bonjour,
La macro fonctionne et est correct
tu peux la remplacer par ceci
Range("d6,e6,c6,h6,i6,j6,k6,m6").ClearContents
A verifier car la macro efface sur la page active sinon faut spécifier quel onglet
Bruno
Bonjour,
Le plus simple
Mettre Val( ......) cela donnera la valeur sinon c'est du texte
ActiveCell.Offset(0, 0) = Val(Me.Label11) 'NUMERO DE LIGNE
Bruno
Re,
J'ai fait le fichier avec macro pour avoir les 2 noms
Le code pour l'envoi n'est pas mis
Bruno
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub ' si plusieurs selections
If Target.Value = "" Then Exit Sub ' si on efface
lig = Target.Row
If...
Bonjour Chaton et Sylvanu,
@sylvanu il faut trouver la ligne du changement et comme noms mettre
destinataire1=range("D" & Target.row)
destinataire2=range("E" & Target.row)
Bruno
Bonjour tous,
Pour le fun encore une autre version de calendrier qui s'adapte sur onglet ou userform.
Possibilité de changer directement l'année on change dans l'année.
Dispo aussi en telechargement du forum
Bruno
Hello,
Va voir la cellule [AQ689]
il y a 1,55**17 c'est là le bug
Pour trouver j'ai lancé la macro copié une partie de la ligne du bug (en jaune) dans la fenetre execution
avec le ? en début
?Range("Tableau4Ch").ListObject.DataBodyRange(CLng(lig), col).value
je fais Enter
il m'a donné...
Bon je pense avoir trouvé la solution.
Je suis obligé de supprimer les espaces en "ManteauPrimitif" ceci en debut de macro car c'est du n'importe quoi, Il y a des espaces sur Ba et les autres qui bloquaient la macro
Je pense que tout fonctionne, je ne test pas le tableau4 et si une colonne n'est...
Bonjour,
J'ai fait mais les entêtes ne doivent pas être mélangées par contre les Tableaux peuvent être déplacés.
Donc à tester et plus de zéro . . .
Je regarde encore si je trouve une solution pour tester ou est chaque enête
Bruno
Bonjour clineM
Je mets la macro qui fonctionne
Si j'ai bien compris la demande
Bruno
Sub RemplirTableau3()
For k = 2 To [C65000].End(3).Row
lig = Application.Match(Cells(k, 7), [AP:Ap], 0)
For col = 10 To 33
Cells(k, col) = Cells(lig, col + 35) / Cells(2, col + 63)
Next
Next
End Sub
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.